составить программу определяющую посреди 3-х веденных чисел а, b, c четные

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.