program ForDemo;

uses
 Forms;

var
 Count: Integer;

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

 Readln;
end.