i have

```
program p1032;
const n=10; num=4;
var i:integer;
a:array[1..n] of 1..n;
procedure tipareste;
var i:integer;
begin
for i:=1 to num do write(a[i],' ');
writeln;
end;
procedure permuta(k:integer);
var i,x:integer;
begin
if k=1 then tipareste else begin
for i:=1 to k do begin
x:=a[i];a[i]:=a[k];a[k]:=x;
permuta(k-1);
x:=a[i];a[i]:=a[k];a[k]:=x;
end;
end;
end;
begin
for i:=1 to n do a[i]:=i;
writeln;
permuta(n);
end.
```

This program is in Turbo Pascal Language i need the same program just in C Language**Thank you very much**