Помогите сделать информатики (через Паскаль и схему надо тоже)

const  n = 10;  var  a :array [1..n] of integer;  i, sum :integer;begin  for i:= 1 to n do    readln(a[i]);    sum:= 0;  for i:= 1 to n do    if a[i] > 0 then      sum:= sum + a[i];  writeln(sum);      end.