поиска неизвестных в pascal

[ank1ne]

Всем добрый день. Перешел в Информ-технологический класс и тут же столкнулся с проблемой.
Помогите решить задачу:

Одно число в 2 раза больше другого, а их сумма =93.
Найти эти числа.
X=2Y
X+Y=93

Я понимаю, что задача очень легкая и простая, но все же я испытываю некие трудности с ней. Прошу написать в несложном виде, так как я не смогу её понять.
Всем благодарен заранее.

[Alex11223]

как-то так, например:

for x:=1 to 93 do
begin
   y:=93-x;
   if (x=y*2) then break; //выход из цикла когда нашли решение
end;
вывод х и у;

[Step_UA]

y:=trunc(93/3);
x:=2*y;

[ank1ne]

Alex11223
спасибо, я понимаю конечно что закончить эту программу легче простого, но так как я немного глуповат в информатике, прошу написать её целиком, если вам не составит это большого труда

[Alex11223]

А зачем тогда пошли в "информ-технологический класс"?))

Собственно заканчивать почти нечего. В объявлении переменных (var) х и у какого-нибудь целочисленного типа, x, y:integer , например. И там где вывод с помощью write или writeln вывести в консоль.
write('x=', x)
для у сами допишете?)

[ank1ne]

нас просто так поделили так, не по собственному желанию. спасибо

[ank1ne]

тему можно закрывать, информатика сразу вы поняли не мое)
спасибо Alex11223