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

Question

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

Answer 1

Паскаль:
var a,b,c, max:real;
begin
  read(a,b,c);
  max:=a;
  if b>max then max:=b;
  if c>max then max:=c;
  writeln(max);
  end.