Question

Помогите написать Паскаль!!! ! ! ! ! ! !

Answer 1

===== 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.