Для данных вещественных чисел m , n, и знака знака операции s вычислить n s m

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}