Программа - вывести сумму положительных из трех введенных чиселИспользуя программку

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 ReadSeqReal(3).Where(t -gt; t gt; 0).Sum.Println

end.

3.53 -6.23 12

15.53

program n1;  

var a, b, c, d: real;

begin  

writeln ('Введите первое число');

readln (a);

writeln ('Введите 2-ое число');

readln (b);

writeln ('Введите третье число');

readln (c);

if (agt;0) then  

 d:= a

else

 d:= 0;

if (bgt;0) then

 d:= d+b  

else

 d:= d;

if (cgt;0) then  

 d:= d+c

else  

 d:= d;

writeln ('Сумма положительных чисел = ', d);

end.