asd / корзина / лекции по TP / Lecture_Pascal / graph / CHEKSHRI

   PROGRAM GRPROBA;
    Uses CRT,GRAPH;
     var
        Driver,Regim,i: Integer;
       s:string;
      c:char;
    BEGIN
         Driver:=VGA;
         Regim:=VGAHi;
         InitGraph(Driver,Regim,'D:\tp70\bgi');

         for i:=0 to 11 do
         begin
           ClearDevice;
         if i<11 then
         SettextStyle(i,0,5)
         else
         SettextStyle(i,0,30);
                str(i,s);
         OutTextXY(50,150,'shrift '+s);
         OutTextXY(50,350,'агббЄЁ© '+s);
        readln;
        end;
        closegraph;
     end.