RIGAL/rigdos/A.TOY

 PROGRAM AAAA
 INTEGER A,B;
 BOOLEAN C;
 C:=TRUE;

 PUT (3,1);
 GET (A);
 PUT (A*A);
 IF A*A=4+12 THEN
    PUT(77)
 ELSE
    PUT (88)       
 FI;
 IF A=4 THEN PUT(99) FI;