intersection

program intersection;
var
a1,a2,b1,b2,x,y:real;
procedure coor_pt(i,j,k,l:real;var m,n:real);
begin
m:=(k-l)/(i-j);
n:=i*m+j;
end;

begin
repeat
writeln('entrer a1');
readln(a1);
writeln('entrer a2');
readln(a2);
until a1<>a2;
writeln('entrer b1');
readln(b1);
writeln('entrer b2');
readln(b2);
coor_pt(a1,a2,b1,b2,x,y);
writeln;
writeln;
writeln('le pt d"intersection de D1:y=',a1,'x + ',b1,'et D2:y=',a2,'x + ',b2,'est le pt A(',x,',',y,')');
writeln('Press <Enter> To Quit');
  readln();
end.