00100 BEGIN "MAIN" 00200 INTEGER I,J,K; 00300 I←3; 00350 K←I-((I DIV 2)*2); 00375 K←TRUE; 00400 IF K THEN OUTSTR("TRUE") ELSE OUTSTR("FALSE"); 00500 END "MAIN";