С клавиатуры вводятся 5 чисел. Определить есть ли посреди них положительные,

program raf105;

var a, counter,i: integer;

begin

writeln('Вводите числа по очереди');

for i:=1 to 5 do

begin

 readln(a);

 if (agt;0) and (agt;=10) and (alt;=99) and((a mod 5)lt;gt;0)

   then counter+= 1;

end;

writeln('Таких цифр: ',counter);

end.

Язык  PascalABC