Даны целые числа a, b, c. Написать программу, подсчитывающую сумму тех из данных чисел, которые больше нуля.

На паскале:
program n1;
var a,b,c,s:integer;
 begin
readln (a);
readln (b);
readln (c);
s:=0;
if (agt;0) then
s:=s+a;
if (bgt;0) then
s:=s+b;
if (cgt;0) then
s:=s+c;
writeln (s);
end.