/* Test for while loop */ procedure myproc is vara : integer; varb : integer; begin /* vara := 4; while(vara > 1) loop if(vara and varb) then writeln('inside if'); end if; vara := vara - 1; writeln('Here'); end loop; */ if(vara xor varb) then writeln('and ok'); else writeln('and bad'); end if; write('END'); end;