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

Паскаль? Если да то код нижеProgram noname;Var i, a, b, c, n:integer;Begina:=0;b:=0c:=0;For i:=1 to 20 dobeginReadln(n);if (n mod 2=0) thena:=a+1;if (n mod 5=0) thenb:=b+1;if (n>9) thenIf (n<100) thenc:=c+1;End;Writeln(a);Writeln(b);WriteLn(c) ;End.