Много ! на паскале пишите даны 20 целых чисел. среди них найти количество четных, количество кратных 5 и количество двузначных

program chisla;

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

begin

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

even:=0;

krat:=0;

two:=0;

schet:=0;

while schet<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 (a>9) and (a<100) then

two:=two+1;

end;

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

end.

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