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

var a, b, c: integer;beginfor a:=1 to 3 dobeginreadln(b);if b mod 2 = 0 then c:=b+c;end;writeln('Ответ: ',c);end.