var i:longint; begin for i:=1 to 1000000 do if (i mod 2=1) and (i mod 3=2) and (i mod 5=4) and (i mod 6=5) and (i mod 7=0) then begin write(i);break;end; end. /************************************************************** Problem: 1265 User: admin Language: Pascal Result: Runtime Error ****************************************************************/