Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program klesanie;
- {$APPTYPE CONSOLE}
- uses SysUtils;
- var i,c:byte;
- begin
- { TODO -oUser -cConsole Main : Insert code here }
- write('Zadajte lubovolne cislo: ');
- readln(c);
- for i:=c downto 0 do write(i,' ');
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
