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

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

Спасибо!