13 lines
155 B
ObjectPascal
13 lines
155 B
ObjectPascal
program stars(output);
|
|
|
|
var
|
|
i, j: integer;
|
|
|
|
begin
|
|
for i := 1 to 5 do
|
|
begin
|
|
for j := 1 to i do
|
|
write('*');
|
|
writeln
|
|
end
|
|
end.
|