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