11 lines
164 B
Text
11 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.
|