function summa(var x: mas; su: real): real;
var
i: integer;
begin
su := 0;
for i := 1 to n do
su := su + x[i];
summa:=su;
writeln('sum=', su);
end;
Я не вижу что надо делать
Program Summa;
Uses Crt;
var n,s:integer;
begin
clrscr;
write('Вводите числа конец ввода 0: ');
s:=0;
repeat
readln(n);
s:=s+n;
until (n=0);
writeln;
writeln('Сумма чисел: ',s);
readkey;
end.