Паскаль!!! Дана сумма и разность двух чисел. Определить эти числа

Question

Паскаль!!!
Дана сумма и разность двух чисел. Определить эти числа

Answer 1

Program EX1;
Var a,b,s,t:Integer;
Begin
Write ('Введите сумму двух чисел');
Read (s);
Write ('Введите разность двух чисел');
Read (t);
a:=(t+s)/2;
b:=t-a;
Write ('Числа равны','a=',a,'b=',b);
End.