Напишите, пожалуйста, программу
Задача.
Дано: х, у, z
Найти: вывести на экран только положительные числа и Найти сумму отрицательных

varsum, a,b,c:real;beginReadln(a,b,c);if a > 0 then Write(a, ' ') else sum:= sum + a;if b > 0 then Write(b, ' ') else sum:= sum + b;if c > 0 then Write(c, ' ') else sum:= sum + c;Writeln;Writeln('Cумма отрицательных эл-в = ', sum);end.Пример:-5 2 12 1 Cумма отрицательных эл-в = -5