Составьте программу по блок-схеме

var s, k, n, i: integer;
    a: array [1..1000] of integer;
begin
  write('n = ');
  readln(n);
  s := 0;
  k := 0;
  for i := 1 to n do
    begin
      write('a[', i, '] = ');
      readln(a[i]);
      s := s + a[i];
      if a[i] mod 2 = 0 then k := k + 1
    end;
  write('s = ', s, ', k = ', k);
  readln
end.

var a, s, k, n, i: integer;
begin
write('n = ');
readln(n);
s := 0;
k := 0;
for i := 1 to n do
 begin
  write('a[', i, '] = ');
  readln(a);
  s := s + a;
  if a mod 2 = 0 then k := k + 1
 end;
write('s = ', s, ', k = ', k);
end.