Bài 1 mình làm thế này có đúng không? :D
program Tinh_khoang_cach;
var x1, y1, A, B,C, d: real;
begin
writeln ('Nhap vao x1, y1 la toa do diem I');
readln(x1, y1);
writeln ('Nhap vao he so A, B, C cua phuong trinh duong thang D');
readln(A, B, C);
d := abs(A*x1 + B*y1 + C) / sqrt(sqr(A) +...