Склавиатуры введите три числа 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.