Упорядочить 3 числа

Посмотреть архив целиком
program zadanie2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var x,y,z,n:integer;
begin
writeln('Vvedite 3 neravnix chisla');
readln(x,y,z);
if x>y then begin
n:=x; x:=y; y:=n;
end;
if y>z then begin
n:=y; y:=z; z:=n;
end;
if x>z then begin
n:=x; x:=z; z:=x;
end;
if x>y then begin
n:=x; x:=y; y:=n;
end;
writeln('chisla v poriadke vozrastania ',x,' ',y,' ',z);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.