Найти сумму 10 положительных чисел. Числа вводятся с клавиатуры — Pascal(Паскаль)

var
 a,i,s:integer;
begin
 s:=0;
 for i:=1 to 10 do
 begin
  readln(a);
   if a>0 then s:=s+a;
  end;
 writeln(s);

end.