Информатика ! : напишите программу на паскаль с которой можно вычислить сумму и количество всех двузначных четных чисел.(цикл while). заранее я вроде разбираюсь в инфе, но что-то эту никак не ​

program raf105;

var a,sum,col:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы узнать результат введите 0');

a:=1;

while a<>0 do

begin

 readln(a);

 if (10<=a) and (a<=99)

   then if a mod 2 = 0

     then

     begin

     sum:= sum+a;

     col:= col+1

     end;

end;

writeln('Количество чётных двузначных чисел: ',col);

writeln('Их сумма: ',sum);

end.

Написано на языке PascalABC.NET