Câu 1:

Program BTT;
Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('Nhap do dai canh a: '); Readln(a);
        Write('Nhap do dai canh b: '); Readln(b);
        Write('Nhap do dai canh c: '); Readln(c);

        If (a+b>c) and (a+c>b) and (b+c>a) then
        Begin
                If (a=b) and (b=c) then Write('Tam giac deu')
                Else If (a=b) or (b=c) or (c=a) then Write('Tam giac can')
                Else If (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then Write('Tam giac vuong')
                Else Write('Tam giac thuong');
        End

        Else Write('Khong phai tam giac');
        Readln
End.

Bài 2:

Const Fi='TIETKIEM.INP';
      Fo='TIETKIEM.OUT';

Var f,g: text;
    x,z: extended; t: longint;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);

        Read(f,x);
        z:=1000; t:=1;

        While z<x do
        Begin
                z:=z+(z*8/100);
                If z<x then inc(t);
        End;

        Write(g,t);
        Close(f);
        Close(g);
End.