В чем ошибка?? ? Free Pascal...суть программы заключается в получении всех возможных перестановок цифр от 1 до N
..
////////////////////////////////////////////////////////////////////////////////////////////////////
Var a:array [0..100] of byte;
n,k,i,l,m:byte;
b:boolean;
Procedure vvod;
begin
b:=true;
readln(n);
for i:=0 to n do
begin
a:=i;
write(a);
write(' ');
end;
end;
Procedure perev (nn,nk:byte);
var r,j:byte;
begin
while nn
write(' ');
end;
BEGIN
Vvod;
while b do
begin
i:=n;
while (a0) do
dec(i);
if i<>0 then
begin
k:=i-1;
l:=a[k];
i:=n;
while a>l do
dec(i);
a[k]:=a;
a:=l;
inc(k);
perev(k,n);
end
else b:=false;
end;
END.