var

a,b,c:integer;

writeln('a,b,c'); readln(a,b,c);

if (a>b) and (a>c) then writeln(a);

if (b>a) and (b>c) then writeln(b);

if (c>b) and (c>a) then writeln(c);

end;

можно через один if.

var

  a, b, c, m : integer;

begin

  read (a, b, c);

  m := a;

  if b > m then m := b;

  if c > m then m := c;

  writeln (m);

end.

ps так корректнее, потому что в первом ответе не учтено равенство чисел.