program p1;
uses crt;

var alc,v0,h0: real;

begin
	writeln('CALCULO DA DISTANCIA ATINGIDA POR UM PROJECTIL');
	writeln('Introduza a altura do lancamento(m): ');readln(h0);
	writeln('Introduza a velocidade inicial(m/s): ');readln(v0);
	alc:= v0*sqrt((2*h0)/9.8);
	clrscr;
	writeln('CALCULO DA DISTANCIA ATINGIDA PELO PROJECTIL');
	writeln('--------------------------------------------');
	writeln('VEL. INICIAL                      :',v0:2:1,' m/s');
	writeln('ALTURA DO DISPARO                 :',h0:3:1,' m');
	writeln('DISTANCIA ATINGIDA                :',alc:2:1,' m');
	writeln('ACEL. GRAVIDADE                   :',9.8:2:1,' m/s^2');
	readln;
end.