program massiiv2;
var
 vanused: array[1..10] of integer;
 i, n: integer;
begin
 writeln('Mitu koera sul on?');
 readln(n);
 for i:=1 to n do
 begin
   write('Sinu ', i, '. koera vanus:');
   readln(vanused[i]);
 end;
 writeln;
 for i:=1 to n do
   writeln('Sinu ', i,'. koera vanus on ', vanused[i]);
end.