program prosedure;

var no1,no2,no3 : real;
procedure bacadata(var v1,v,t : real);
begin

writeln(‘Program Mencari Jarak Pada GLBB’);
write(‘nilai Kecepatan saat ini(v1) ?’);
readln(v1);
write(‘nilai Kecepatan awal(v) ?’);
readln(v);
write(‘nilai waktu(t) ?’);
readln(t);
end;
procedure hitung(v1,v,t : real);
var
a : real;
s : real;
begin
a:=(v1-v)/t;
s := v * t + 1/2 * a * t * t;
writeln(‘v1 = ‘,v1:2:2,’ v = ‘,v:2:2,’ t = ‘,t:2:2);
writeln(‘a = ‘,a:2:2,’ s = ‘,s:2:2);
end;
begin
bacadata(no1,no2,no3);
while no2>1 do
begin
hitung(no1,no2,no3); {panggilan tatacara }
bacadata(no1,no2,no3); { membaca data lain }
end;
end.
{ program ini akan behenti jika anda memberi nilai ‘0′ pada v atau pada t }