Даны две переменные вещественного типа: A, B. Перераспределить значе-ния данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.
var A, B, c : real; begin A := ...; B := ...; if A > B then begin c := A; A := B; B := c; end; Writeln('A = ', A); Writeln('B = ', B); end.
