Program Anak Ayam

Seperti yang kita ketahui lagu anak ayam yakni seperti anak ayam turun sepuluh mati satu tinggal sembilan disini saya mencoba membuat program tersebut bagi yang berminat silakan mencobanya

uses wincrt;

var

   i: integer;
   x: integer;
begin
     readln (x);

     for i := x downto 1 do
     begin
          if i = 1 then
              writeln('anak ayam turun 1 mati 1 tinggal induknya')
          else
              writeln ('anak ayam turun ', i, ' mati 1 tingal ',i-1);
     end;
readln;
end.