Найти сумму положительных чисел из 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.