Привет, самое простое решение :D
Так же можно и в цикле сделать (если надо пиши, добавлю решение)
vari,j:integer;beginfor i:=1 to 6 do beginfor j:=1 to i dowrite('*');writeln();end;end.
