program pr;
 uses crt, graph;
 var tmp_d, tmp_m     :     integer; {screen variables}
     p                :     char;    {readkey}
     y_wlcm           :     integer; {Vsplivayushii text}
     javame           :     string;

     {Procedura inicializacii grafiki}
     procedure init_screen;
     begin
      tmp_d := detect;
      initgraph(tmp_d, tmp_m, '');
     end;

     {Procedura inicializacii peremennyh}
     procedure init_variables;
     begin
      y_wlcm := -20;
      javame := 'JavaME';
     end;

     {Procedura vyvoda zastavki}
     procedure helloscreen;
     begin
      init_screen;
      repeat
       setcolor(7);
       bar(0,0,640,480);
       settextstyle(1, 0, 7);
       {vyvod texta Welcome s tenyu}
       setcolor(green);
       outtextxy(172, y_wlcm+2, 'Welcome');
       setcolor(lightgreen);
       outtextxy(170, y_wlcm, 'Welcome');
       inc(y_wlcm);
       {Vyvod imeni}
       settextstyle(3, 0, 4);
       setcolor(red);
       outtextxy(y_wlcm*2-100, 171, 'Author: Victor aNNiMON Melnik');
       setcolor(lightred);
       outtextxy(y_wlcm*2-99, 170,'Author: Victor aNNiMON Melnik');
       delay(1000);
      until y_wlcm>100;
      repeat until keypressed;

     end;

 {Glavnaya programma}
 begin
    helloscreen;
    {
    repeat p:= readkey;
      setbkcolor(blue);
      if(p=#72) then inc(colbk1);
      if(p=#80) then colbk1:=colbk1-1;
      if(colbk1<0) then colbk1 := 15;
      if(colbk1>15) then colbk1 := 0;

    until p=#27;
    readkey;    }
    closegraph;
 end.