Если паскаль, можешь юзать
wrileln('*');
writeln('**);
writeln('***');
Program zv;
var i,j:integer;
begin
for i:=1 to 8 do
begin
for j:=1 to i do write('*');
writeln
end;
writeln;
for i:=1 to 8 do
begin
for j:=i to 8 do write('*');
writeln
end;
end.
Объяснение:
Или по отдельности:
1.
Program zv1;
var i,j:integer;
begin
for i:=1 to 8 do
begin
for j:=1 to i do write('*');
writeln
end
end.
2.
Program zv2;
var i,j:integer;
begin
for i:=1 to 8 do
begin
for j:=i to 8 do write('*');
writeln
end
end.
