Question

Что не так? Программа выводит в столбик, а надо треугольником
Вот так:
*
**
***
****
*****

Answer 1

Если говорить в лоб то вот так

var

 i: integer;

begin

 for i:=1 to 1 do write('*');

 writeln('');

 for i:=1 to 2 do write('*');

 writeln('');

 for i:=1 to 3 do write('*');

 writeln('');

 for i:=1 to 4 do write('*');

 writeln('');

 for i:=1 to 5 do write('*');

end.

Answer 2

var

i: integer;
j: integer;

begin
for i:=1 to 5 do begin
for j:=1 to i do begin
write('*');
end;
writeln('');
end;

end.