Автор: Bronislav

Bronislav — Sun, 27 Jan 2019 18:51:40 +0000

program For15;//pabc.net

//uses PT4;

begin
//  Task('For15');
  var A := ReadReal();
  var N := ReadInteger();
  var Res := SeqFill(N, A).Aggregate((res, x)-> res * x);
  Print(Res)
end.

program For15;//pabc.net

//uses PT4;

begin

// Task('For15');

var A := ReadReal();

var N := ReadInteger();

var Res := SeqFill(N, A).Aggregate((res, x)-> res * x);

Print(Res)

end.

program For15;//pabc.net

//uses PT4;

begin
//  Task('For15');
  var A := ReadReal();
  var N := ReadInteger();
  var Res := 1.0;
  SeqFill(N, A).ForEach(x -> begin Res *= x end);
  Print(Res)
end.