помогите пожалуйста!!! заполнить пропуски
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.

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;    writelnend;var    n: byte;    p: integer;begin    randomize;    write('n? ');    readln(n);    solution(n, p);    writeln(p)end.