Программа для вывода узора на экран в Turbo Pascal:

program pattern;
uses crt;
var
i, j: integer;
begin
clrscr;
for i := 1 to 7 do
begin
for j := 1 to i do
write('*');
writeln;
end;
for i := 6 downto 1 do
begin
for j := 1 to i do
write('*');
writeln;
end;
readln;
end.

Эта программа выводит следующий узор:

*
**
***
****
*****
******
*******
******
*****
****
***
**
*