Program KIEM_TRA_DIEM_THUOC_DUONG_TRON;
Uses crt; Var x0,y0,xa,ya,d,r : real;
Begin
          Clrscr;
           Writeln('KIEM TRA DIEM THUOC DUONG TRON: ');
         Writeln('--------------------------------------------------------');
         Write('Nhap ban kinh R= '); readln(r);
         Write('Nhap hoanh do tam duong tr />         readln(x0);
         Write('Nhap tung do tam duong tr />         readln(y0);
         Write('Nhap hoanh do diem a = ');
         readln(xa); Write('Nhap tung do diem a = ');
         readln(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.