fork download
copy 
  1. program pesegibintang2;
  2. var
  3.  a,b,c : smallint;
  4. begin
  5. read(a);
  6. for b:= 1 to a do
  7.  begin
  8.   for c := 1 to a do
  9.    begin
  10.     if((b=1) or (b=a) or (c=1) or (c=a) or (b=c))then
  11.      write('*')
  12.     else
  13.      write(' ');
  14.    end;
  15.    writeln;
  16.  end; 
  17. end.
Success #stdin #stdout 0.02s 252KB
comments (?)
stdin
copy 
8
stdout
copy 
********
**     *
* *    *
*  *   *
*   *  *
*    * *
*     **
********
https://ideone.com/eDOoT
program persegi silang satu
language:
Pascal (fpc 3.0.4)
created:
11 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!