Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее

Вывести новые значения переменных A и B.

Program If9;
Var
A,B,Temp:Real;
Begin
WriteLn('Введите числa A и B: ');
ReadLn(A,B);
If A < B Then
Begin
Temp:=A;
A:=B;
B:=Temp;
End;
WriteLn('A = ',A,' B = ',B); 
End.

автор: Sklyarov Sergej a.k.a. S9