program lhk;
 uses crt, graph;
 var detect,graphmode:integer;
 begin
 initgraph( detect,graphmode, 'c:\tp71\bgi');
  setbkcolor(12);
  settextstyle (1,0,5);
  outtextxy (50,100,'turbo pascal 7.1');
  settextstyle ( 1,0,6);
  outtextxy (80,180,'SUPER PASCAL');
  outtextxy(30,260,'vova klass');
 readln;
   closegraph;
 end.