Написать программа в паскаль: Ввести 2 числа вычислить из большего меньшее Помогите...

Question

Написать программа в паскаль:
Ввести 2 числа вычислить из большего меньшее
Помогите пожалуйста

Answer 1

Первый вариант:

Var
   a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
if a>b then Write(a-b)
else Write(b-a)
End.

Второй вариант:

Var a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
WriteLn(Abs(a-b))
End.