QBasic
CLS
N=14
DIM A(N)
FOR I=1 TO N
INPUT A(I)
NEXT I
M=0
L=0
IF A(I)>0 THEN
M=M+1
PRINT "POL"; M
ELSE
L=L+1
PRINT "OTR"; L
END IF
