program massiiv;
var
 nimed: array [1..4] of string;
 i: integer;

begin
 nimed[1]:='Jri';
 nimed[2]:='Hannes';
 nimed[3]:='Kristiina';
 nimed[4]:='Kaarel';

 for i:=1 to 4 do
 begin
  writeln('Tere, ', nimed[i], '!');
  writeln('Soovin sulle head uut aastat.');  
  writeln;
 end;
end.