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

var a, b, tmp: real;

begin

writeln ('Введите первое дробное число');

readln (a);

writeln ('Введите второе дробное число');

readln (b);

if a < b then writeln ('Первое число меньше второго, не надо ничего делать!') else

begin

tmp : = b;

b : = a;

a : = tmp;

end;

end.