pas.pas

来自「相当强悍」· PAS 代码 · 共 11 行

BEGIN 
f:=1;
lastf:=0;
n:=0;
FOR I:=1 TO 20 DO
      BEGIN
        IF(n MOD 4=0) THEN WRITELN;
      END

END.