program ForDemo2;

uses
 Forms;

var
 Count: Integer;

begin
 For Count := 10 downto 1 do
  Writeln('Akuku ', Count);

 Readln;
end.