Code: Selecteer alles
MODULE S2;
FROM IO IMPORT WrStr, WrLn, RdCard, WrCard, RdInt, WrInt; (* import general procedures *)
VAR x, i, j:CARDINAL; (* variable-declarations *)
BEGIN
WrLn;
WrStr("Hoe groot moet het langste pijltje zijn?");
WrLn;
x := RdCard();
FOR i := 1 TO x DO
FOR j := 1 TO i DO
WrStr("*");
END;
WrLn;
END;
FOR i := x TO 1 BY -1 DO
FOR j := 1 TO i DO
WrStr("*");
END;
WrLn;
END;
END S2.