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

Program Program1;Vara,b,c:integer;beginwriteln('Введите значение 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.