(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.