Нужна программа в Паскале

Program test; uses crt; var x,n,sum,i: integer; beginclrscr; write ('Input x '); readln (x); for i: =1 to x do begin write ('Input number',i,'); readln (n); if n>0 then sum: =sum+n; end; writeln (sum); readln; end.