fork download
copy 
  1. program belahketupat;
  2. var
  3.   i,j,k,n : integer;
  4. begin
  5.   readln(n);
  6.   for i := 1 to N do
  7.     begin
  8.       for k := (N-1) downto i do
  9.         begin
  10.           write ('  ');
  11.         end;
  12.       for j:= 1 to i do
  13.         begin     
  14.           write(j,' ');
  15.         end;
  16.       for j:=(i-1) downto 1 do
  17.         begin
  18.           write(j,' ');
  19.         end;
  20.       writeln(' ');
  21.     end;
  22.   for i := (N-1) downto 1 do
  23.     begin
  24.       for k := (N-1) downto i do
  25.         begin
  26.           write ('  ');
  27.         end;
  28.       for j := i downto 1 do
  29.         begin
  30.           write (j,' ');
  31.         end;
  32.       for j := 1 to (i-1) do
  33.         begin
  34.           write(j,' ');
  35.         end;      
  36.       writeln(' ');
  37.     end;
  38. end.
Success #stdin #stdout 0s 340KB
comments (?)
stdin
copy 
7
stdout
copy 
            1  
          1 2 1  
        1 2 3 2 1  
      1 2 3 4 3 2 1  
    1 2 3 4 5 4 3 2 1  
  1 2 3 4 5 6 5 4 3 2 1  
1 2 3 4 5 6 7 6 5 4 3 2 1  
  6 5 4 3 2 1 1 2 3 4 5  
    5 4 3 2 1 1 2 3 4  
      4 3 2 1 1 2 3  
        3 2 1 1 2  
          2 1 1  
            1
https://ideone.com/nbqPN2
belah ketupat
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!