Scrtch кейіпкері қалай аталады​

галя,толя,миша,лена,вася

var a: array [1..8,1..5]of integer;

s,i,k: integer;

begin

  randomize;

  for i: = 1 to 8 do begin

        for k: = 1 to 5 do begin

              a[i,k]: = random(20)-10;

              write(a[i,k]: 3,' ');

              if a[i,k] mod 2 = 0 then s: =s+a[i,k];

        end;

        writeln;

  end;

  writeln('s=',s);

end.

var a: array [1..100] of integer; i,n,s: integer; begin  randomize;   n: =12;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;

  for i: = 1 to n do begin      if i mod 2 =0 then

          s: =s+a[i];   end;   writeln(s);   end.

program dl9_aniasss;

var c: real;

begin

writeln ('vvedit c');

readln (c);

c: =c*2;

writeln (c,'*2=',c);

readln

end.