Program mencari jarak dan percepatan.

program mencarijarakpadaGLBB;
uses crt;
procedure hitung(V0,t,Vt : real);
var
s,x,a:real;
begin
s:=Vt*t;
x:=V0*t+1/2*a*sqr(t);
a:=Vt-V0/t;
writeln(‘jarak/s=’, s:3:2);

writeln(‘percepata/a=’,a:4:2);
end;
var
V,V0,t,Vt:real;
s,x,a:real;
begin
clrscr;
writeln(‘mencari jarak pada GLBB’);

write(‘nilai V0 ?’);
readln(V0);
write(‘nilai t ?’);
readln(t);
write(‘masukan nilai Vt :’);
readln(Vt);

hitung(V0,t,Vt);
end.