{ Turbo Pascal }
uses graph; const a: array[0..2] of byte=(2,3,4 
   {5,6,9, 11,12,13, 14,16,17, 19,20,21, 22,23,24, 25,26,27});
var s,t: string; d,g,k: integer;                        begin
detectgraph(d,g);  initgraph(d,g,'f:\pascal\bgi');  randomize;
d:=random(3);  str(a[d],s);  setbkcolor(15);  setcolor(1);
settextstyle(0,0,31);  settextjustify(centertext,centertext);
outtextxy(getmaxx div 2,getmaxy div 2,s);          readln end.