Помогите создать программу паскаль для задачи:Даны два различных вещественных...

Question

Помогите создать программу паскаль для задачи:Даны два различных вещественных числа.Определить :а)Какое из них больше;б)Какое из них меньше;

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a  else
    if b    else Writeln('Числа равны')
end.