moto parabolico

program moto_parabolico;
var tempo,velocita,spostamentox,spostamentoy:real;
begin
writeln ('scrivi il valore della velocità,scrivi dati in m/s');
readln (velocita);
writeln ('scrivi dopo quanto tempo vuoi conoscere lo spostamento dell''oggetto, scrivi dati in secondi');
readln (tempo);
spostamentoy:= 0.5*9.8*tempo*tempo;
spostamentox:= velocita*tempo;
writeln('lo spostamento orizontale del corpo in assenza di attrito è uguale a',spostamentox:2:8);
writeln('lo spostamento verticale del corpo in assenza di attrito è uguale a',spostamentoy:2:8);
readln;
end.