Программисты Паскалев и Питонов играют в числа. Паскалев задумывает два целых…

{1-й вариант}varx,y,i,j: integer; beginwriteln ('Введите разность задуманных чисел: '); read (x); writeln ('Введите сумму задуманных чисел: '); read (y); writeln ('Задуманные числа: ', (y+x) /2,' и ', (y-x) /2); end. {2-й вариант}varx,y,i,j: integer; beginwriteln ('Введите разность задуманных чисел: '); 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.