Число в 2 раза больше другого, а их сумма равна 93. найти эти числа.

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