program farebnemeno;
uses crt;
var i,n:integer;
begin
clrscr;
repeat
writeln ('zadaj kolko farieb');
readln (n);
textbackground(4);
if n>15 then writeln ('Zadaj cislo mensie ako 16');
textbackground (black);
until n<16;
for i:= 1 to n do
    begin
     textcolor (i);
     writeln (' Miso a Ernest');
     end;
readln;
end.