pas.pas

相当强悍

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

END.