Составить программу в Паскале, которая рисует выкройку платья(размер а задаётся с клавиатуры) На рисунке: Стороны - а, основание трапеции - 2а

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

Программа на Паскале:

program DressPattern;
var
a, i, j: integer;
begin
write('Введите размер стороны платья: ');
readln(a);
for i := 1 to a do
begin
for j := 1 to a-i do
write(' ');
for j := 1 to 2*i do
write('*');
writeln;
end;
for i := a downto 1 do
begin
for j := 1 to a-i do
write(' ');
for j := 1 to 2*i do
write('*');
writeln;
end;
end.

Эта программа рисует выкройку платья с заданным размером стороны "a". Платье представляет собой трапецию с высотой "a" и основанием 2*a.