Guest User

Untitled

a guest
Jan 24th, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.59 KB | None | 0 0
  1. program olol;
  2.  var
  3.   i,j,n: integer;
  4.  begin
  5.   readln(n);
  6.   for i:=1 to n+1 do
  7.    begin
  8.     for j:=1 to n-i+1 do
  9.      write('  ');
  10.     for j:=0 to i-1 do begin
  11.      write(j); if i<>1 then write(' ');
  12.     end;
  13.     for j:=i-2 downto 0 do begin
  14.      write(j); if j <>0 then write(' ');
  15.     end;
  16.     writeln;
  17.    end;
  18.   for i:=n downto 1 do
  19.    begin
  20.     for j:= 1 to n-i+1 do
  21.      write('  ');
  22.     for j:=0 to i-1 do begin
  23.      write(j); if i<>1 then write(' ');
  24.     end;
  25.     for j:=i-2 downto 0 do begin
  26.      write(j); if j <>0 then write(' ');
  27.     end;
  28.     writeln;
  29.     end;
  30.  end.
Add Comment
Please, Sign In to add comment