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