pascal 9 Hãy viết chương trình tính khoảng cách từ một điểm I có tọa độ là (xi,yi) đến đường thẳng có phương trình là D: Ax + By + C = 0, biết rằng khoảng cách từ I đến đường thẳng D là:

program kaito;
uses crt;
var xi, yi, a, b, c, d: real;
begin 
    clrscr;
    write('Nhap hoanh do của I: xi = '); readln(xi);
    write('Nhap tung do của I: yi = '); readln(yi);
    write('Nhap a = '); readln(a);
    write('Nhap b = '); readln(b);
    write('Nhap c = '); readln(c);
    d:=abs(a*xi+b*yi+c)/sqrt(a*a+b*b);
    writeln('Khoang cach tu I den duong thang D la: ',d);
    readln
end.