program Car;
vari, j: integer;
beginfor i := 1 to 5 dobeginfor j := 1 to i dowrite('*');writeln;end;end.
program Car;
var
i, j: integer;
begin
for i := 1 to 5 do
begin
for j := 1 to i do
write('*');
writeln;
end;
end.