program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
castka, zbytek, pettisic, dvatisice, tisic, petset, dveste, sto: integer;
begin
write('Zadejte castku, na kterou chcete vratit: ');
read(castka);

writeln('Na vyplaceni ', castka, ' Kc bude potreba:');

pettisic:=castka div 5000;
writeln('5000 Kè: ', pettisic, 'x');
zbytek:=castka mod 5000;

dvatisice:=zbytek div 2000;
writeln('2000 Kè: ', dvatisice, 'x');
zbytek:=zbytek mod 2000;

tisic:=zbytek div 1000;
writeln('1000 Kè: ', tisic, 'x');
zbytek:=zbytek mod 1000;

petset:=zbytek div 500;
writeln('500 Kè: ', petset, 'x');
zbytek:=zbytek mod 500;

dveste:=zbytek div 200;
writeln('200 Kè: ', dveste, 'x');
zbytek:=zbytek mod 200;

sto:=zbytek div 100;
writeln('100 Kè: ', sto, 'x');

writeln('A mozna nejaky drobny, ale kdo se s tim ma srat, princip je jasnej..');
readln(castka);
end.