var a,i:longint; begin for i:=1 to 10000000 do if (i mod 5=1) and (i mod 6=5) and (i mod 7=4) and (i mod 11=10) then begin write(i);break;end; end. /************************************************************** Problem: 1261 User: admin Language: Pascal Result: Runtime Error ****************************************************************/