var i,j:longint; begin for i:=1 to 10 do for j:=1 to 5 do if (i*10)+(j*20)=100 then writeln(i,' ',j); end. /************************************************************** Problem: 1792 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/