Contoh While Do (Kedalaman Sumur)

Setelah mengetahui definisi dari while do, sekarang saya akan memberi contoh soal sebagai berikut :

Ada katak masuk kedalam sumur sedalam 31.2 m. 5 hari pertama katak bisa naik 3 m tiap pagi dan merosot 1 m tiap malam, 10 hari berikutnya katak bisa naik 2 m tiap pagi dan merosot 1.25 m tiap malam, selanjutnya naik 2 m tiap pagi dan merosot 1.5 m tiap malam, berapa hari katak tersebut dapat keluar dari sumur?

======================================

Program KodokTampan;
Uses wincrt;
Var ds,t,jt:real;
    i,n:integer;
    ulang:char;

Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do
Begin
clrscr;
Write('Masukan Kedalaman Sumur = ');readln(ds);
i:=1;
n:=3;
t:=1;
while ds > 0 do
Begin
     if (i>5) and (i <=15) then
     begin
     n:=2;
     t:=1.25;
     end
     else if i > 10 then
     begin
     n:=2;
     t:=1.5;
     end;
jt:=n-t;
ds:=ds-jt;
Writeln(i:4,' hari', n:8,' m', t:8:2, ds:8:2);
i:=i+1;
end;
Writeln;
Writeln('==============================================');
    Writeln('= Created, Ardiansyah || 20142205026 ||TI.11 =');
Writeln('==============================================');
    write('Mau ulang lagi? [Y/T]: ');
    Readln(ulang);
end;  
end.
=============================================
Hasil Output nya :

Credit By : Adyt

&

Muhajirin Ridwan