===== PascalABC.NET =====
begin
var (y0, v0, g) := (1.0, 20.0, 9.81);
var y: real -> real := t -> y0 + v0 * t - g * t *t / 2;
foreach var t in Seq(1, 3, 4) do
Writeln(t, y(t):10:2)
end.
Program a2;
Crt;
Vari,N : integer;
x, S : real;
Begin
ClrScr;
readln (N);
S:=0;
i:=1;
while i<=N do
readln (x);
S:=S*x;
i:=i+1;
end;
write(s);
readln;
End.