Cara Membuat perulangan for anak ayam menggunakan program pascal

uses wincrt;

var
a,i : integer;

begin
write ('Anak ayam yang turun = ');
readln (a);

for i:= a downto 1 do

begin
if i=1 then
write ('Anak ayam turun 1 mati satu tinggal induknya')
else
writeln ('Anak ayam turun ', i,' mati satu tinggal ',i-1);
end;

end.

Berryhs.com Blog