ClubPoker-DNA

uses wincrt;
var
x,n:integer;
begin
writeln('Lagu Anak Ayam');
writeln;
write('Masukkan banyaknya anak ayam yang ingin ditampilkan: ');readln(x);
writeln;
writeln('Tek kotek kotek kotek anak ayam turun berkotek');
writeln('Anak ayam turunlah ',x);
n:=x-1;
repeat
if n>1 then
begin
writeln('Mati satu tinggalah ',n);
end
else
writeln('Mati satu tinggalah ',n);
writeln('Anak ayam turunlah ',n);
n:=n-1;
until n=0;
writeln('Mati semua tinggal induknya');
end.