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