program varvid2;
uses crt;
var i: integer;
begin
 clrscr;
 for i:=1 to 14 do
 begin
  textcolor(i);
  writeln('Tere!');
 end;
 readkey;
 textmode(lastmode);
end.