Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дано 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.