Написать фрагмент программы, подсчитывающий сумму только положительных из трех данных чисел.

var a,b,c:real;
begin
readln(a,b,c);
if (b>0) and (a > 0) and (c > 0)
then write((c+a+b):0:0);
if (b>0) and (a>0) and (c<0)
then write((a+b):0:0);
if (b>0) and (a<0) and (c>0)
then write((b+c):0:0);
if (b<0) and (a>0) and (c>0)
then write((a+c):0:0)
end.