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

1

Ответы и объяснения

2014-02-25T23:21:23+04:00
Var  
a, b, p: real;
begin 
write('Введите значения A и B через пробел: '); 
readln(a,b); 
if a > b then   
begin   
p:=a;   
a:=b;   
b:=p;   
end; 
writeln('A = ', a, '; B = ', b);
end.