Даны две переменные вещественного типа: 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.