Заполнить пропуски 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); 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;
    writeln
end;

var
    n: byte;
    p: integer;

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