Найти сумму положительных чисел из 10, введённых с клавиатуры. Программа Паскаль.

var
  i, x, sum:integer;

begin
  sum:=0;
  for i:=1 to 10 do
  begin
    readln(x);
    sum:=sum+x;
  end;
  writeln(sum);
end.