дано 3 числа abc вывести на печать максимальное из них

//Pascal
var a, b, c: integer;
begin
  read(a, b, c);
  if (a >= b) and (a >= c) then write(a)
  else if (b >= a) and (b >= c) then write(b)
  else write(c);
end.