Найти сумму элементов вещественного массива в размерностью 10элементов, значение элементов вводятся с экрана?

program m;

uses crt;

var a,b,c,d,e,f,g,h,i,k,s: integer;

begin

s: =0;  

writeln(a,b,c,d,e,f,g,h,i,k);

readln(a,b,c,d,e,f,g,h,i,k);

s: =a+b+c+d+e+f+g+h+i+k;

readln(s);

writeln('s',=s);  

end.       

var b: array [1..10] of real;

      s: real;

      i: integer;

begin

  s: =0;

  for i: =1 to 10 do begin

    readln(b[i]);

    s: =s+b[i];

                          end;

  writeln(s);

end.

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.