PascalABC.NET

1)

begin

 var (V, t, a) := ReadReal3('Введите V0, t, a:');

 var V0 := V - a * t;

 println('S =', abs(V0 * t + (a*sqr(t)/2)));

end.

2)

begin

 print('S =', Pi * sqr(ReadInteger('R =')));

end.