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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.