Надо сделать программу через PascalABC.
Найти данные по формуле V = sqrt2aS+V0^2.
sqrt-Квадратный корень.

Program z2;  Var  v,s,a,v0:real;Begin  Write(Vo =); readln(v0);  Write(a =); readln(a);  Write(S =); readln(s);  v:=sqrt(2*a*s+v0*v0);  Write(V =,v);End.