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