7 lines
111 B
Text
7 lines
111 B
Text
INTEGER I,J;
|
|
FOR I:=1 STEP 1 UNTIL 5 DO
|
|
BEGIN
|
|
FOR J:=1 STEP 1 UNTIL I DO
|
|
OUTTEXT("*");
|
|
OUTLINE
|
|
END
|