program prosedure;
uses crt;
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);
writeln;
writeln;

writeln(‘Masukkan angka 0 pada v atau t untuk bisa keluar’);
end;
begin
bacadata(no1,no2,no3);
while no2 > 1 do
begin
clrscr;
hitung(no1,no2,no3);
bacadata(no1,no2,no3);
end;
clrscr;
end.