С клавиатуры задаётся 3 числа. Найти сумму кратных двум РЕШИТЬ ПАСКАЛЕМ. ОЧЕНЬ НУЖНО

Question

С клавиатуры задаётся 3 числа. Найти сумму кратных двум РЕШИТЬ ПАСКАЛЕМ. ОЧЕНЬ НУЖНО

Answer 1

Var a, b, c: integer;
begin
for a:=1 to 3 do
begin
readln(b);
if b mod 2 = 0 then c:=b+c;
end;
writeln('Ответ: ',c);
end.