USES CRT;

VAR
  DC,YC  :INTEGER;
  BAS    :INTEGER;
  J,I    :INTEGER;
  X,Y,TXY:INTEGER;
  SORU:ARRAY[1..10] OF BYTE;

PROCEDURE CIK2;
BEGIN
CLRSCR;
  GOTOXY(20,5); WRITELN('ILK ');DELAY(1000);
  GOTOXY(28,5); WRITE('MATEMATIK 1.1');DELAY(1000);
  GOTOXY(22,8); WRITELN('TOPLAM PUAN');DELAY(1000);
  GOTOXY(23,9); WRITELN('   {',DC-YC,'}');
  GOTOXY(10,22);WRITELN('COPRIGHT(c)-2007  BY GOKHAN AYGUN'); DELAY(2000);
  GOTOXY(15,25);WRITELN('ILK MATEMATIK KAPANIYOR...');DELAY(1500);
    HALT;
end;

PROCEDURE CIK;
BEGIN
CLRSCR;
  GOTOXY(20,5); WRITELN('ILK ');DELAY(500);
  GOTOXY(28,5); WRITE('MATEMATIK 1.1');DELAY(500);
  GOTOXY(22,8); WRITELN('TOPLAM PUAN');DELAY(500);
  GOTOXY(23,9); WRITELN('   {',DC-YC,'}');
  GOTOXY(10,22);WRITELN('COPRIGHT(c)-2007  BY GOKHAN AYGUN'); DELAY(500);
  GOTOXY(15,25);WRITELN('SORU DEGISIYOR...');DELAY(1500);

end;


PROCEDURE GOKHAN;
var
  j:byte;
  I:INTEGER;
label a;
  begin
   clrscr;
   GOTOXY(16,8);
   WRITELN(CHR(207),'ILK MATEMATIK VERSIYON  1.1',CHR(207));
   a:
   for j:=0 to j+1 do BEGIN
   gotoxy(15,10);
   write(j);
      END;
   textcolor(j);
   gotoxy(19,10);
   write('YUKLENIYOR');
   gotoxy(29,10);
   DELAY(40);
   WRITE('.');
   gotoxy(31,10);
   DELAY(40);
   WRITE('.');
   gotoxy(32,10);
   delay(40);
   write('.');
   delay(60);
    if j<100 then goto a;
    if j=100 then CLRSCR; FOR I:=1 TO 2000 DO BEGIN
       GOTOXY(I+1,1+I);WRITE('MATEMATIK ===ILK-');
    END;
    GOTOXY(25,15); TEXTCOLOR(YELLOW);  
           write('GIRIS ICIN [ENTER]');
    READLN;
  end;

PROCEDURE SCREEN;
BEGIN
CLRSCR;
   TEXTCOLOR(YELLOW);
   TEXTBACKGROUND(red);
   GOTOXY(10,3); WRITELN('=========ILK MATEMATIK VERSIYON 1.1===================');
   GOTOXY(10,5); WRITELN('******************************************************');
   GOTOXY(10,6); WRITEln('**<<<EXAMPLES>>>******<<<SKORTABLE>>>***<<<TIME>>>****');
   GOTOXY(10,7); WRITELN('******[  ]****************[   ]************[  ]*******');
   GOTOXY(10,8); WRITEln('******************************************************');
   GOTOXY(10,9); WRITEln('******************************************************');
   GOTOXY(10,10); WRITEln('******************************************************');
   GOTOXY(10,11); WRITEln('********{                               }*************');
   GOTOXY(10,12); WRITEln('******************************************************');
   GOTOXY(10,13); WRITEln('******************************************************');
   GOTOXY(10,14);WRITEln('********************{   }*****************************');
   GOTOXY(10,15);WRITEln('******************************************************');
   GOTOXY(10,16);WRITEln('***********{                      }*******************');
   GOTOXY(10,17);WRITEln('******************************************************');
   GOTOXY(10,18);WRITEln('******************************************************');
   GOTOXY(10,20);WRITEln('******************************************************');
   GOTOXY(10,21);WRITEln('***********PROGRAMDAN CIKMAK ICIN*********************');
   GOTOXY(10,22);WRITEln('*****************[123]********************************');
   GOTOXY(10,23);WRITEln('******************************************************');

READLN;
END;

PROCEDURE YSES;
  BEGIN
    SOUND(100);
    DELAY(900);
    NOSOUND;
  END;

PROCEDURE DSES;
  BEGIN
    SOUND(1600);DELAY(100);
    SOUND(1500);DELAY(100);
    SOUND(1600);DELAY(100);
    SOUND(1700);DELAY(100);
    SOUND(1600);DELAY(100);
    SOUND(1500);DELAY(100);
    SOUND(1600);DELAY(100);
    NOSOUND;
  END;

PROCEDURE OKU;
BEGIN
    DC:=0;
    CLRSCR;
    GOKHAN;

    FOR I:=1 TO 10 DO
    BEGIN
      SCREEN;
      GOTOXY(17,7); WRITE(I);
      RANDOMIZE;
      FOR J:=1 TO 10  DO
      x:=random(10);
      y:=random(10);
      TXY:=X*Y;
      GOTOXY(22,11);
       WRITE('[',X,'X',Y,']',",'ISLEM SONUCU?');
      GOTOXY(31,14);READLN(BAS);

      IF BAS=123 THEN BEGIN CIK2; END ELSE
      IF BAS=TXY THEN
      BEGIN
        DSES;
        GOTOXY(22,16); WRITELN('TEBRIKLER BILDINIZ'); DC:=DC+10;
        GOTOXY(38,7); WRITELN('10');READLN;
      END
         ELSE
         BEGIN
             YSES;
             GOTOXY(22,16);
              WRITELN('ÜZGÜNÜM!! D.CEVAP =',TXY,"); DC:=DC-10;
             GOTOXY(37,7); WRITELN('-10');  READLN;
         END;
  CIK;
END;

READLN;
END;

BEGIN
OKU;
CIK2;

END.