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

Напишите программу в паскале на определение максимального числа из двух введенных

Ответ оставил Гость

Var
  a,b: real;
begin
  write(Введите a:);readln(a);
  write(Введите b:);readln(b);
  if a>b then writeln(a, - максимальное)
    else if b>a then writeln(b, - максимальное)
  else
    writeln(Значения равны);
end.