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

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