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

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

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.