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.