Advertisement
Guest User

Untitled

a guest
Oct 31st, 2014
143
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.15 KB | None | 0 0
  1. var i, j : integer;
  2.  
  3. begin
  4. for i:=5 downto 1 do
  5. begin
  6.   for j:=5 downto i do
  7.   begin
  8.     write(i*2 - 1);
  9.   end;
  10.   writeln;
  11. end;
  12.  
  13.  
  14. readln;
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement