Дам много баллов!!! На паскале пишите Даны 20 целых чисел. Посреди

Даны 20 целых чисел. Среди их отыскать количество четных, количество кратных 5 и количество двузначных

program chisla;

var a, even, krat, two,schet:integer;

begin

writeln('Введите 20 Целых чисел');

even:=0;

krat:=0;

two:=0;

schet:=0;

while schetlt;20 do begin

readln(a);

schet:=schet+1;

if (a mod 2 = 0) then

even:=even+1;

if (a mod 5 = 0) then

krat:=krat+1;

if (agt;9) and (alt;100) then

two:=two+1;

end;

writeln('Всего ',even,' четных, ',krat,' кратных пяти и ', two,' двузначных.');

end.