Program Nick;

var i, draty: integer;
    moznosti: longint;
    konec : string;

begin
  repeat
  begin
    write('Zadej poet drt (maximln 12) a stiskni Enter: ');
    readln(draty);
    moznosti:=1;
    for i:=2 to draty do
      moznosti:=moznosti*i;
    writeln('Poet monost zapojen pi ',
           draty,' drtech je ',moznosti);
    writeln();
    writeln('Pro ukonen napite "konec" a stisknte Enter');
    writeln('Pro pokraovn stisknte jen Enter');
    readln(konec);
    writeln();
  end;
  until (konec = 'konec');
end.

