kapesne

program kapesne_cyklus;
{$APPTYPE CONSOLE}
uses SysUtils;
var k,i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte vysku kapesneho: ');
  readln(k);
  for i:=k downto 0 do writeln('Zostalo ti: ',i);
  writeln('Nemas ziadne kapesne :-)');
  writeln('Copyright - Roman Vasek');
  readln;
end.