Помогите!!В Паскале!!Одно число в 2 раза больше другого, а их сумма равна 93. Найти эти числа.

 var i,j:integer;beginfor i:=1 to 93 dofor j:=1 to 93 dobeginif (i=j*2) and (i+j=93) then writeln('Большее число равно ',i,' а меньшее равно ',j);end;end.