Program chisla; uses crt; var a,b,c : integer; begin Writeln('Введите значения X Y Z: '); Readln(a,b,c); if a>b then begin a:=a+b; b:=a-b; a:=a-b; end; if b>c then begin b:=b+c; c:=b-c; b:=b-c; end; if a>b then begin a:=a+b; b:=a-b; a:=a-b; end; writeln('X=',a,' Y=',b,' Z=',c); end.
Answers & Comments
Verified answer
Program chisla;uses crt;
var a,b,c : integer;
begin
Writeln('Введите значения X Y Z: ');
Readln(a,b,c);
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
if b>c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
writeln('X=',a,' Y=',b,' Z=',c);
end.