Program Begin22;
Var
A, B, Temp: Real;
Begin
WriteLn('Введите A и B');
RealLn(A, B);
Temp := A;
A := B;
B := Temp;
WriteLn('A = ', A:6:3, ' B = ', B:6:3);
ReadLn;
End.
Program Begin22;
Var
A, B, Temp: Real;
Begin
WriteLn('Введите A и B');
RealLn(A, B);
Temp := A;
A := B;
B := Temp;
WriteLn('A = ', A:6:3, ' B = ', B:6:3);
ReadLn;
End.