даны 20 целых чисел посреди их отыскать количество четных количество кратных

На паскале напишите

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


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 (ngt;9) then
If (nlt;100) then
c:=c+1;
End;
Writeln(a);
Writeln(b);
WriteLn(c) ;
End.