Програма, яка виводить на екран ялинку, написану зірочками:
program yalunka;
var i: byte;
begin
for i:=1 to 3 do
begin
writeln (' * ');
writeln (' *** ');
writeln ('*****');
end;
readln
end.
Програма має діяти так:
   * 
 ***
*****
   *
 ***
*****
   *
 ***
*****