Câu 2 : 

Program ABC;
Uses crt;
Var x0,y0,xa,ya,d,r:real;
Begin
Writeln('KIEM TRA DIEM THUOC DUONG TRON:');
Writeln('----------------------------------');
Write('Nhap ban kinh R= ');readln(r);
Write('Nhap toa do tam duong tron = '); readln(x0, y0);
Write('Nhap toa do diem a = '); readln(xa, ya);
d:=SQRT(SQR(xa-x0)+SQR(ya-y0));
If r=d then
         Writeln('Diem A nam tren duong tron')
Else
         If d>r then Writeln('Diem A nam ngoai duong tron')
           Else Writeln('Diem A nam trong duong tron');
Readln;
End.

Câu 3 :

program tamgiac;

var a,b,c: longint;

begin

write('Nhap canh a =');readln(a);

write('Nhap canh b =');readln(b);

write('Nhap canh c =');readln(c);

if (a>b+c) or ( b>a+c) or( c>a+b) then writeln('Day khong phai ba canh tam giac')

else if (a=b) and (b=c) or (a=c) then writeln('Day la tam giac can ')

else if ( a=b) and (b=c) then writeln('Day la tam giac deu')

else if(sqr(a)=sqr(b)+sqr(c))+ or(sqr(b)=sqr(c)+sqr(a)) or (sqr(c)=sqr(a)+sqr(b)) then writeln(' Day la tam giac vuong')

else writeln('Day la tam giac thuong');

readln

end.

BẠN ẤN CTRL F9 ĐỂ CHẠY CHƯƠNG TRÌNH NHÉ