lancio di un corpo- in linguaggio pascal

program moto_di_un_proiettile;
var componentex,componentey,velocita,spostamentox,altezzamax,angolo,angolo1,angolo2,angolo3:real;
begin
writeln ('scrivi il valore della velocita in cui si lancia il corpo ,scrivi i datio in m/secondo ');
readln (velocita);
writeln ('scrivi il valore dell''angolo di lancio,scivi l''angolo in gradi');
readln (angolo);
angolo1:=angolo*PI/180;
angolo1:=cos(angolo1);

angolo2:= (90-angolo);
angolo2:= angolo2*PI/180;
angolo3:=cos(angolo2);
componentey:= velocita*angolo3;
componentex:= velocita* angolo1;
spostamentox:= (2*componentex*componentey)/9.8;
writeln ('la gittata del corpo è',spostamentox:2:4);
altezzamax:= (componentey*componentey)/(9.8 *2);
writeln ('l''altezza massima che raggiunge il corpo è',altezzamax:2:4);
readln;
end.