// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s,a,d:real;
Read(s,a,d);
Writeln('Сумма=',s+a+d,', произведение=',s*s*d)
end.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
Range(3,15,2).Select(b->(b,b*b,b*b*b)).Println(NewLine)
end.
Результат
(3,9,27)
(5,25,125)
(7,49,343)
(9,81,729)
(11,121,1331)
(13,169,2197)
(15,225,3375)