var{обозначаем переменные}
  n, i: integer;
  x, x1: real;

begin
  writeln('Введите количество нужных чисел');{выводим текст}
  readln(n);{ожидаем ввода пользователя}
  x := 0;
  
  for i := 1 to n do{начинаем цикл for}
  begin
    writeln('Введите число под номером ', i);
    readln(x1);
    x := x + x1;
  end;
  writeln('Сумма введеных чисел равна ', x);
  readln;{ожидаем подтверждение пользователя}
end.