С клавиатуры введите три числа a,b,c введите те из них которые делятся на 2. Написать надо по паскалю

Program Program1;
Var
a,b,c:integer;
begin
writeln(Введите значение a:);
readln(a);
writeln(Введите значение b:);
readln(b);
writeln(Введите значение c:);
readln(c);
writeln(Делятся на 2 без остатка:);
If (a mod 2)=0 then writeln(a);
If (b mod 2)=0 then writeln(b);
If (c mod 2)=0 then writeln(c);
end.