GamerSK

sto

Jan 12th, 2017
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.18 KB | None | 0 0
  1. program sto;
  2. {$APPTYPE CONSOLE}
  3. uses SysUtils;
  4. var i:byte;
  5. begin
  6.   { TODO -oUser -cConsole Main : Insert code here }
  7.   for i:=100 downto 1 do write(i,' ');
  8.   readln;
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment