Будем использовать формулы ,
и
program zadacha;
uses crt;
var v0, t: integer;
v, s, a: real;
begin
clrscr;
write ('vvedite nachalnuyu skorost, rasstoyanie i vremya: ');
readln (v0, s, t);
a:=2*(s+v0*t)/sqr(t);
v:=v0+a*t;
writeln ('uskorenie = ', a, ', skorost v kontse puti = ', v);
readkey;
end.