Вычислитть расстояние пройденное за t время если известны начальная скорость и ускорение

Пусть начальная скорость равна у, а ускорение а:
S=yt+(at^2)/2

Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
end.