Pascal: Program Senandung Anak Ayam

Pada saat perkuliahan PEMROGRAMAN I, Sang Musafir mendapat tugas dari dosen pengampu mata kuliah untuk membuat suatu program senandung anak ayam dengan menggunakan Turbo Pascal. tentunya kalian sudah pada tahu kan? bagaimana lirik lagu senandung anak ayam!.

Sebagian teman yang belum pernah mencoba mungkin yang pertama kali muncul dalam benak fikirannya pasti "tinggal di ketik saja gan dengan menggunakan perintah Writeln, kan mudah?".Anggapan tersebut juga tidak dapat disalahkan, akan tetapi iya kalau misalkan anak ayam tersebut turun sesuai dengan jumlah yang kita ketikkan pada perintah Writeln akan tetapi jika anak ayam tersebut turun (lahir) sebanyak 1000 ekor?, tentunya kita juga akan capek untuk mengetik ataupun menggunakan teknik Copy Paste. Maka dari itu disini Sang Musafir mau berbagi pengalaman dengan memberikan Sintaks dalam pembuatan Program Senandung Anak Ayam.

Program Anak_Ayam;
Uses Crt;
Var
UI: char;
a,b,c,d:integer;
Begin
clrscr;
Writeln('      ---*****---      ');
Writeln('   PROGRAM ANAK AYAM   ');
Writeln('=======================');
Writeln('');
Writeln('Tek kotek kotek kotek');
Writeln('Anak ayam turun berkotek');
Writeln('Tek kotek kotek kotek');
Writeln('Anak ayam turun berkotek');
Writeln('');
Write('Anak ayam turunnya '); readln(a);
if a=0 then
Writeln('Oh tidak bisa bro');
Begin
    Writeln('Mati satu tinggallah ',a-1);
    for c:=a-1 downto 2 do
        Writeln('Anak ayam turun ',c,' mati satu tinggallah ',c-1);
        Writeln('');
    d:=c-1;
    Writeln('Anak ayam turunnya ',d);
        Writeln('Mati satu tinggal INDUKSNYA');
        Writeln('');
        Writeln('============================');
    end;
if a=2 then
    Writeln('Anak Ayam turun 1 mati satu tinggal induknya'); readln;
    Write('Play Again [Y/T]? '); readln(UI);
    UI:=Upcase(UI);
Until (UI <> 'Y');
    end.

Semoga hal ini bermanfaat bagi agan-agan semua ya.,, kalaupun ada hal-hal yang perlu dipertanyakan silahkan tinggalkan komentar dibawah ini.