Program Pyramide;Const N=4;Var i, j : integer;BeginFor i:=0 To n DoBeginFor j:=i+1 To n Do write (' ');for j:=-i To i Dowrite ('*');writeln;End;End.
Standard input is empty
* *** ***** ******* *********
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!