Помогите зделать програму без cons.Вот мое решение.

program QuickSort;
const n=20;
var a:array[1..n] of integer;
i:word;
procedure QSort(l,r:word);
var b,tmp:integer;
i,j:word;
begin
b:=a[(l+r) div 2];
i:=l; j:=r;
while i<=j do
begin
while a[i]<b do i:=i+1;
while a[j]>b do j:=j-1;
if i<=j then
begin
tmp:=a[i];
a[i]:=a[j];
a[j]:=tmp;
i:=i+1;
j:=j-1;
end;
end;
if l<j then QSort(l,j);
if i<r then QSort(i,r);
end;
begin
writeln('chuslo:');
for i:=1 to n do read(a[i]);
readln;
QSort(1,n);
writeln('masuv:');
for i:=1 to n do write(a[i]:4);
writeln;
end.
end.
Нужно поставить цифры в порядке увеличения!

Модератор: Модератор: Тема закрыта
Причина: Название темы должно отражать ее суть!

Создайте тему в соответствии с правилами форума и сообщите мне об этом на ПМ, а эту потом удалим