Программисты Паскалев и Питонов играют в числа. Паскалев задумывает два целых числа и сообщает Питонову их сумму и разность (из первого задуманного числа вычитается второе). Помогите Питонову найти задуманные числа по известным значениям их суммы и разности. Пожалуста, очень нужна программа на Паскале.

{1-й вариант}
var
x,y,i,j: integer;
begin
writeln(Введите разность задуманных чисел: );
read(x);
writeln(Введите сумму задуманных чисел: );
read(y);
writeln(Задуманные числа: ,(y+x)/2, и ,(y-x)/2); 
end.   

{2-й вариант}
var
x,y,i,j: integer;
begin
writeln(Введите разность задуманных чисел: );
read(x);
writeln(Введите сумму задуманных чисел: );
read(y);
for i:=1 to 1000 do
 begin
  for j:=1 to 1000 do
   if j - i = x then
    if j + i = y then writeln(Задуманные числа: ,j, и ,i);
  end; 
end.