profile
Опубликовано 4 года назад по предмету Информатика от ДжокерНЕайс

Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). Free Pascal 2.4.4

  1. Ответ
    Ответ дан APALoff
    Function max(a,b : Integer) : Integer;
    Begin
      If a>=b then Max:=a else Max:=b;
    end;
    Var x,y : Integer;
    Begin
      Readln(x,y);
      Writeln(Max(x,y));
    end.