bài tập 2:
Program tam_giac_vuong;
Uses crt;
Var a,b,c:real;
Begin
     clrscr;
     write('nhap do dai canh thu nhat :');
     readln(a);
     write('nhap do dai cannh thu hai :');
     readln(b);
     write('nhap do dai canh thu ba :');
     readln(c);
     if (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
         writeln('Day la tam giac vuong')
      else
          writeln('Day la tam giac thuong');
      readln;
End.

Bài 1:
Program Hinh_tron;
Uses Crt;
Var r,S,CV: real;
      Const pi = 3.14
Begin
Clrscr;
Writeln('Nhap ban kinh='); Readln(r);<br />CV:= r*2*pi;<br />S:=r*r*pi;<br />Writeln('Chu vi hinh tron la=',CV);<br />Writeln('Dien tich hinh tron la=',S);
Readln
End.