var
a, b, c: integer;
begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if a mod 2 = 0 then writeln('a - четное число')
else writeln('a - нечетное число');
if b mod 2 = 0 then writeln('b - четное число')
else writeln('b - нечетное число');
if c mod 2 = 0 then writeln('c - четное число')
else writeln('c - нечетное число');
readln; //Если не в Turbo pascal, то можно убрать
end.
var
a, b, c: integer;
begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if a mod 2 = 0 then writeln('a - четное число')
else writeln('a - нечетное число');
if b mod 2 = 0 then writeln('b - четное число')
else writeln('b - нечетное число');
if c mod 2 = 0 then writeln('c - четное число')
else writeln('c - нечетное число');
readln; //Если не в Turbo pascal, то можно убрать
end.