{ Program na vypocet variacii Vk(n)=n!/(n-k)!, permutacii P(n)=n!
a kombinacii bez opakovania Ck(n)=n!/((n-k)!*k!) s uzivatelskym vstupom
- prikaz CASE }

program vypocet;
uses crt;
var v,n,k:integer;
    vk,ck,p:real;

function faktorial(hodnota:integer) : longint;
var i:integer;
    y:longint;
begin


end;

begin
clrscr;
Writeln('Zvol si co chces pocitat');
Writeln('Ak chces pocitat variacie stlac cislo 1');
Writeln('Ak chces pocitat permutacie stlac cislo 2');
Writeln('Ak chces pocitat kombinacie stlac cislo 3');
writeln;
readln(v);

1: begin
   writeln('Zadaj pocet prvkov: ');
   readln(n);
   writeln('Zadaj triedu variacii: ');
   readln(k);

   writeln(' Variacie ',k,'-tej triedy z ',n,' prvkov = ',vk:5:2);
   end;
2: begin
   writeln('Zadaj pocet prvkov: ');
   readln(n);

   writeln(' Permutacie bez opakovania z ',n,' prvkov = ',p:5:2);
   end;
3: begin
   writeln('Zadaj pocet prvkov: ');
   readln(n);
   writeln('Zadaj triedu kombinacii: ');
   readln(k);

   writeln(' Kombinacie ',k,'-tej triedy z ',n,' prvkov = ',ck:5:2);
   end;
else
end;
end.