Ответ:

var a,b,c :integer;

begin

writeln('Введите первое значение');

readln(a);

writeln('Введите второе значение');

c := a+b;

writeln('Сумма', c);

end.

var a, b: real;

begin

   readln(a, b);

   writeln(a + b);

end.

______________________

var a, b: real;

begin

   readln(a, b);

   writeln(a - b);

end.