1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a,b,c:integer;
Procedure F(var a,b:integer);
var tmp:integer;
begin
If (A>B) then
begin
tmp:=A;
A:=B;
B:=tmp;
end;
end;
Begin
ClrScr;
write ('A= '); readln (A);
write ('B= '); readln (B);
write ('C= '); readln (C);
F(A,B);
F(A,C);
F(B,C);
writeln ('A= ',A,' B= ',B,' C= ',C);
readln
End.