contoh pemograman pascal mencari pantulan TUGAS 1

uses wincrt; {jika memakai linux crt;}
var atas,jarak,jum:real;
    i:byte;
    begin
write('masukkan pantulan:');readln(atas);
write('masukkan pantulan awal:');readln(pantulan);
i:=0;
jum:=0;
while(pantulan>0.1) do
begin
i:=i+1;
jarak:=jarak-(pantulan*10/100);
writeln('pantulan ke',i,'=',langkah:4:2,'cm');
jarak:=jarak-(pantulan*12/100);
jum:=jum+jarak;
end;
writeln('panjang rute= ',jum:4:2);
writeln('jumlah pantulan= ',i);
end.