INTEGER I,J;
FOR I:=1 STEP 1 UNTIL 5 DO
BEGIN
   FOR J:=1 STEP 1 UNTIL I DO
      OUTTEXT("*");
   OUTLINE
END