uses crt; var x,s,a,f,d:integer; begin clrscr; randomize; s:=0; d:=0; repeat s:=s+1; d:=random(14); x:=random(49); textcolor(d); write(s,'.sayi..:',x); readln; a:=a+1; until a=6; writeln('gokhan yazilim'); readkey; halt; end.