10 lines
164 B
Text
10 lines
164 B
Text
begin
|
|
for i := 1 until 5 do
|
|
begin
|
|
write( "*" );
|
|
for j := 2 until i do
|
|
begin
|
|
writeon( "*" )
|
|
end j
|
|
end i
|
|
end.
|