Даны сумма и разность двух целых чисел. Нужно найти эти числа. НА PascalABC

сначала решим эту задачу математически.Пусть даны сумма двух чисел a и их разность b, сами числа x и y неизвестнысоставим систему:x+y=ax-y=bрешим ее относительно a и bx=a-ya-y-y=ba-2y=b2y=a-by=(a-b)/2x=a-(a-b)/2=(2a-a+b)/2=(a+b)/2теперь составляем программу:Program n1;var a,b: integer;beginwrite('Введите сумму 2 целых чисел: ');readln(a);write('Введите разность 2 целых чисел: ');readln(b);writeln('1 число: ',(a+b)/2);write('2 число: ',(a-b)/2);end.