'BEGIN'
'INTEGER' J,K;
'ARRAY' A(/0:3/);
K := 2;
'FOR' J := 1 'STEP' 1 'UNTIL' K
'BEGIN'
I := 0;
'END';
'END'