Даю 20 баллов. Программа PascalABC задача:написать программу для подсчета суммы только положительных,из 3 данных чисел.

var a,b,c,sum:integer;beginwriteln('Введите три числа:');read(a,b,c);if a>0 then sum:=sum+a;if b>0 then sum:=sum+b;if c>0 then sum:=sum+c;writeln('Сумма положительных чисел равна ',sum);end.