fork download 
  1. program kincirangin;
  2. var
  3.   x,y,n : integer;
  4. begin
  5.   readln(n);
  6.   for y:=1 to n do
  7.     begin
  8.       for x:=1 to n do
  9.         begin
  10.           if ((x <= y) and (y <= n div 2+1))
  11.           or ((x <= n-y+1) and (x >= n div 2+1))
  12.           or ((x >= y) and (y >= n div 2+1))
  13.           or ((x >= n-y+1) and (x <= n div 2+1)) then
  14.             write('*')
  15.           else
  16.             write(' ');
  17.         end;
  18.       writeln;
  19.     end;  
  20. end.
Success #stdin #stdout 0s 340KB
comments (?)
stdin 
15
stdout 
*      ********
**     ******* 
***    ******  
****   *****   
*****  ****    
****** ***     
*********      
***************
      *********
     *** ******
    ****  *****
   *****   ****
  ******    ***
 *******     **
********      *
https://ideone.com/S51FgE
kincir angin
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!