Написать программу, которая выводит изображенный ниже узор. Turbo Pascal

Предыдущий
вопрос Следующий
вопрос

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

program pattern
uses crt
va
i, j: integer
begi
clrscr
for i := 1 to 7 d
begi
for j := 1 to i d
write('*')
writeln
end
for i := 6 downto 1 d
begi
for j := 1 to i d
write('*')
writeln
end
readln
end.

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

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