Bлюбое число, которое вводится в a. пример ввожу слово 45, выводит слово 45.var a: string; b: integer; beginread(a); if a='слово'+b thenbeginwriteln(a); end; end.

Const
  nm = 50;{максимальная размерность вектора}

var
  i, n: integer;
  x: array[1..nm] of real;
  s: real;

begin
  Write('Введите размерность вектора n -> ');
  Readln(n);
  Write('Вводите координаты вектора через пробел ');
  s := 0;
  for i := 1 to n do
  begin
    Read(x[i]);
    s := s + sqr(x[i])
  end;
  Writeln('Длина вектора равна ', sqrt(s):0:4)
end.

Тестовое решение:

Введите размерность вектора n -> 7
Вводите координаты вектора через пробел -3.54 0.532 2.6 12 -3 0 1.47
Длина вектора равна 13.2188

Program P1;
var
a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов};
S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла} 
begin
randomize; {включаем генератор случайных чисел};
S:=0;   {Обнуляем значение суммы}
for I:=1 to 50 do   {цикл в 50 повторений}
begin
a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]}
S:=S+a[i];   {Добавляем каждый элемент к значению суммы}
end;
wrilteln('Сумма всех элементов ', S); {выводим значение суммы}
end;