(8 класс, цикл while) Напишите программу, которая находит сумму четных чисел, больших 5. Количество введённых чисел неизвестно, последовательность ввода заканчивается нулём.

Travonka: Program abc;
var a, b : integer;
begin
a:=1;
b:=0;
while a <> 0 do
begin
Readln(a);
if (a > 5) and (a mod 2 = 0) then
begin
b:=b+a;
end;
end;
Writeln(b);
end. // нормальная запись, сорян

ginamoai: Спасибо!