14 lines
155 B
ObjectPascal
14 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.
|