Программа в pascal abc

Вводится последовательность натуральных чисел. Признак конца ввода - число 0. Определить количество чисел кратных 2 и 3 и сумму всех введенных чисел.

Program pr;

uses crt;

Var k, a, sum:integer;

Begin

Writeln ('Vvedite posledovatelnost') ;

k:=0;

readln (a) ;

sum:=a;

While a0 do

Begin

readln (a) ;

sum:=sum+a;

if (a mod 2=0) and (a mod 3=0) then k:=k+1;

end;

Writeln ('k=', k) ;

Writeln ('sum=', sum) ;

readln;

end.