PROGRAM ID;
BEGIN
FOR I := 1 TO 2
DO
A := A + 1;
OD
END A;