Помогите!!Пожалуйста!!даю 50 баллов!!!

Написать программу которая просит ввести 10 чисел и находит сумму всех чисел,которые больше 0 из ряда введенных
Для pascal ABC

program abc;var a, summa:integer;beginsumma:=0;writeln('Введите 10 чисел');for i:integer:=1 to 10 do begin readln(a);if a>0 then summa:=summa+a;end;writeln(summa)end.