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

Паскаль: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.