KODE PROGRAM ANAK AYAM

PROGRAM ANAK_AYAM;
USES CRT;
VAR
    I : INTEGER;
BEGIN;
    CLRSCR;
    FOR I := 10 DOWNTO 1 DO
    WRITELN('ANAK AYAM TURUN ',I,' MATI 1 TINGGAL ',I-1);
READLN;
END.