Pascal Lagu Anak Ayam

Berikut ini adalah pascal lagu anak ayam yang saya dapat semasa duduk dibangku kuliah semoga bermanfaat :

program laguanakayam;
uses wincrt;
var
 i,n : integer;
begin
clrscr;
write('n=');readln(n);
writeln('anak ayam turun ',n);
for i:=n downto 2 do
writeln('anak ayam turun ',i,',mati satu tinggal ',i-1);
begin
write('anak ayam turun 1, mati satu tinggal induknya.');
end;
readln;
end.