Автор: Bronislav

Bronislav — Sun, 27 Jan 2019 19:25:54 +0000

program For16;//pabc.net

//uses PT4;

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

program For16;//pabc.net

//uses PT4;

begin

// Task('For16');

var A := ReadReal();

var N := ReadInteger();

var Res := 1.0;

SeqFill(N, A).ForEach(x -> begin Res *= x; Print(Res) end)

end.

program For16;//pabc.net

//uses PT4;

begin
//  Task('For16');
  var A := ReadReal();
  var N := ReadInteger();
  SeqGen(N, A, x -> x * A).Println
end.