Лабораторная работа: Разработка программы формирования перестановок, сочетаний, размещений (Turbo Pascal 7.0.)

writeln('-->> 4. Vihod.');

writeln;

write('-->> Wi wibrali:');

readln(nomer);

case nomer of

1: begin

clrscr;

write('Sochetanye iz=');

readln(iz_skolki);

write(' po=');

readln(po_skolko);

writeln;

writeln('Sochetanye:');

sochetanye(iz_skolki,1);

readln;

goto kombinatorika;

end;

2: begin

clrscr;

write('Perestanovka iz=');

readln(iz_skolki);

for i:=1 to iz_skolki do massiwi2[i]:=i;

writeln;

writeln('Perestanovka:');

perestanovka(iz_skolki,1,massiwi2);

readln;

goto kombinatorika;

end;

3:begin