Question

Задача по паскалю.У ведіть два числа.Менше замініть сумою цих чисел, більше - їх різницею. Видіть результати.

Answer 1

var a,b,x,y: integer;

begin

writeln('vvedite 2 chisla');

readln(a,b);

if a-b>0 then

begin

x:=a-b;

y:=a+b;

end

else

begin

x:=a+b;

y:=b-a;

end;

write('a = ',x,', b = ',y);

readln;

end.