Запутался в написании.

[tesma]

Всем привет, я начал учить паскаль 2 недели назад и уже умею создавать множество операций. Вот решил написать калькулятор и запутался совсем вот мои коды.

program konk;
 uses crt;
  var N,i :integer;
      S,x :real;
      u :char;

  BEGIN
  clrscr;
  write('Введите количество чисел:- ');
  read(N);
  S:=0; i:=1;
  while (i <= N) do
  begin
  write('Введите ',i,'-е число:- ');
  read(x);
  i:=i+1;
  end;
 write('Введите задуманую операцию:- '); {пользователь вводит операцию над числами +,-,*,/}
 read(u);
 if (u = +) then
 begin
 S:=S+x;
 end;
 write('Результат работы:- ',S:2:3);


  readln;
  readln;
  END.

[Hacker19_90]

 if (u = '+') then

[tesma]

Hacker такой метод не подходит, паскаль сразу возвращает мне результат работы 0.000

[DiemonStar]

1. Где у вас сохраняются введённые значения?
2.

паскаль сразу возвращает мне результат работы 0.000

S:=0;

и

S:=S+x;

и больше никаких операций с выводимым числом...

[whatever]

program konk;
 uses crt;
  var N,i :integer;
      S,x :real;
      u :char;

  BEGIN
  clrscr;
  write('Введите количество чисел:- ');
  read(N);
  S:=0; i:=1;
  while (i <= N) do
  begin
  write('Введите ',i,'-е число:- ');
  read(x);// N раз считываем числа в одну и ту же переменную, в итоге созранится только последнее введенное значение, рекомендую динамический массив
  i:=i+1;
  end;
 write('Введите задуманую операцию:- '); {пользователь вводит операцию над числами +,-,*,/}
 read(u);
 if (u = +) then//как уже было сказано if (u = '+')
 begin
 S:=S+x;
 end;
 write('Результат работы:- ',S:2:3);//если исправить условие тремя строчками выше, то результатом будет последнее значение x


  readln;
  readln;//два раза - бессмысленно
  END.