Задание 5 Урок 9

Задание 5 Урок 9

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

var
    a,b,max : real;
begin
  write('Введите два числа через пробел и нажмите ENTER: ');
  readln(a,b);
  if (a > b)
     then
       begin
         max := a;
         write(max:0:1);
       end
     else
       begin
         max := b;
         write(max:0:1);
       end;

   readln();

end.               

Исправленный вариант (16.09.2020)

var a,b,max : real;

begin
  write('Введите два числа через пробел и нажмите ENTER: ');
  readln(a,b);
  if (a > b) then
    begin
      max := a;
      write(max:0:1);
    end
  else
    begin
      max := b;
      write(max:0:1);
    end;

  readln();
end. 

Key Words for FKN + antitotal forum (CS VSU):