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

Паскаль? Если да то код ниже

Program noname;

Var i, a, b, c, n:integer;

Begin

a:=0;

b:=0

c:=0;

For i:=1 to 20 do

begin

Readln (n) ;

if (n mod 2=0) then

a:=a+1;

if (n mod 5=0) then

b:=b+1;

if (n>9) then

If (n<100) then

c:=c+1;

End;

Writeln (a) ;

Writeln (b) ;

WriteLn (c) ;

End.