unit SeaInfo;
interface
uses crt,graph;
procedure SeaWarGraf;
procedure SeaWarBag;
procedure SeaWarMop;
procedure SeaWarOver;

 implementation

procedure SeaWarGraf;
var draiver, mood, viga: integer;
          begin
               draiver:=detect;
               Initgraph(draiver, mood, '');
               viga:=GraphResult;
               if viga <> GrOK then
               begin
                    writeln('Graafikaviga ',GraphErrorMsg(viga));
                    Halt(1);
               end;
           end;

  procedure SeaWarMop;
  var Driver, Mode,col: Integer;
begin
  Driver := Detect;{®¡­ à㦥­¨¥}
  InitGraph(Driver, Mode, '');
  if GraphResult < 0 then
    Halt(1);
   MoveTo(150,350);
  SetTextStyle(DefaultFont, HorizDir, 2);   
  SetTextJustify(LeftText, TopText);
  OutTextXY(150,350, '�€†Œˆ’… ENTER');
  repeat
 col:=random(15)+1;
 SetColor(col);
  SetTextStyle(DefaultFont, HorizDir, 4);
  SettextJustify(LeftText, TopText);
  OutTextXY(100, 200, 'ŒŽ�‘ŠŽ‰ �Ž‰');
   delay(100);
  until keypressed;
  readln;
 CloseGraph;
 end;
procedure SeaWarBag;
var
b,bb:string;
c1,c2:integer;
begin
clrscr;
gotoxy(25, 10); write('*     *  *     *          **     **  ');
gotoxy(25, 11); write('**   **  *     *         *  *   * *  ');
gotoxy(25, 12); write('* * * *  *     *            *  *  *  ');
gotoxy(25, 13); write('*  *  *   *   *  *******   *  *   *  ');
gotoxy(25, 14); write('*     *    * *            *       *  ');
gotoxy(25, 15); write('*     *     *           *****   *****');
 textcolor(5);
 b:='                                                                              ';
 b:=b+'�’“ ��Žƒ�€ŒŒ“ �€‡�€�Ž’€‹ˆ Ÿ�€ Ÿ‘ˆ�‘Š€Ÿ ˆ ‹…�€ Š“‡�…–Ž‚€ ˆ‡ ƒ�“��› MV21';
  bb:='';
 for c1:=1 to length(b)-77 do
  begin
   for c2:=c1 to c1+77 do bb:=bb+b[c2];
   gotoxy(3,19);
   write(bb);
  bb:='';
      delay(100);
  end;
clrscr;
TextMode(LastMode);
  end;
   procedure SeaWarOver;
var
 col: integer;
 size: word;
begin
 clrscr;
 SeaWarGraf;
 for size:=1 to 5 do
 begin
  SetColor(white);
  SetTextStyle(DefaultFont, HorizDir, size);
  OutTextXY(125, 200, 'ŠŽ�…– ˆƒ�›');
  delay(750);
  SetColor(black);
  OutTextXY(125, 200, 'ŠŽ�…– ˆƒ�›');
 end;
 repeat
  col:=random(15)+1;
  SetColor(col);
  OutTextXY(125, 200, 'ŠŽ�…– ˆƒ�›');
  delay(100);
 until keypressed;
 CloseGraph;
 textmode(lastmode);
end;
 end.