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

на паскале:program n1;var a,b,c,s:integer; beginreadln (a);readln (b);readln (c);s:=0;if (a>0) thens:=s+a;if (b>0) thens:=s+b;if (c>0) thens:=s+c;writeln (s);end.