Напишите программы для сложения и вычитания длинных чисел.

Program dl7756la; Var a, b, res, resp:real; Begin Write ('Введите 2 числа, через пробел: '); Read (a, b); If a>b Then begin res:=a-b Writeln ('Результат вычитания: ', res:3:2); end; Else Begin res:=b-a; WriteLn ('Результата вычитания: ', res:3:2); End; resp:=a+b; WriteLn ('Результат сложения = ', resp:3:2); End.