Question

помогите пожалуйста!!! заполнить пропуски
procedure solution(n: byte; var s: integer);
var
i: byte;
a: integer;
begin
s := 10;
for i := 1 to n do
begin
a := -20 + random(41);
write(a:5);
__ := s + sqr(a)
end;
writeln
end;
var
n: byte;
p: integer;
begin
randomize;
write('n? ');
readln(n);
solution(n, p);
writeln(__)
end.

Answer 1

procedure solution(n: byte; var s: integer);
var
    i: byte;
    a: integer;
begin
    s := 10;
    for i := 1 to n do
    begin
        a := -20 + random(41);
        write(a:5);
        s := s + sqr(a);
    end;
    writeln
end;

var
    n: byte;
    p: integer;

begin
    randomize;
    write('n? ');
    readln(n);
    solution(n, p);
    writeln(p)
end.