Склавиатуры задаётся 3 числа. найти сумму кратных двум решить паскалем. нужно

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.