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