Написать программу, в которой пользователь вводит три числа, а программа определяет максимальное.

Var
  a, b, c, max: longint;

begin
  readln(a, b, c);
  max := a;
  if (b > max) then
    max := b;
  if (c > max) then
    max := c;
  writeln(max);
end.