Дан текст. Подсчитать, общее число вхождений в него символов «+» и «-»

Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.

В условии не указано, для какой именно функции вычислять значения. Я сочинил свою :)

Если тебе нужна другая функция, замени строку   y:=(2*sin(x)+7*x*x)/sqrt(x); на то, что тебе нужно.

 

Program L1e2na_2;
uses crt;
var
  x:integer;
  y:real;
begin
  writeln('++');
  writeln('|           КАКАЯ-ТО ФУНКЦИЯ            |');
  writeln('|      Вычисление значения функции      |');
  writeln('|       для Х = 1, 2, 3, ... , 10       |');
  writeln('++');
  writeln();
  writeln('++');
  writeln('|              Результат:               |');
  writeln('++');
  writeln('|         X         |         Y         |');
  writeln('++');
  for x:=1 to 10 do
    begin
      y:=(2*sin(x)+7*x*x)/sqrt(x);
      writeln('|  ',x:8,'         | ',y:11:3,'       | ');
    end;
  writeln('++');
end.