Напишите программу на языке паскаль, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Заранее благодарен

Program kratn_6_okanch_4;

var a,s: integer;

begin

wri teln('Введите натуральные числа, в конце введите 0');

readln(a);

s:= 0;

while a<>0 do

begin

if (a mod 6 = 0) and (a mod 10 = 4) then

s := s + a;

readln(a);

end;

writeln('Сумма всех чисел кратных 6 и оканчивающихся на 4=',s)

end.

Объяснение: