Ответ:

Сложение:

var

  a,b,c:integer;

begin

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

   readln(a);

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

   readln(b);

   c := a + b;

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

end.

Вычитание:

var

  a,b,c:integer;

begin

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

   readln(a);

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

   readln(b);

   c := a - b;

   writeln('Разность', c);

end.

Объяснение:

Допустим дпление двух чисел

Program al;

var a, b, c: integer;

begin

Writeln('Введите два числа ');

readln(a,b);

c:=a/b;

writeln('c=',c);

end.

Умножение двух чисел

Program al;

var a, b, c: integer;

begin

Writeln('Введите два числа ');

readln(a,b);

c:=a*b;

writeln('c=',c);

end.