Отрезок на плоскости задается двумя несовпадающие конечными точками A (x1; y1) и B (x2; y2). Из точки С (х3; у3) к прямой, содержащей отрезок АВ, проводится перпендикуляр. Определить, попадает перпендикуляр на отрезок АВ или на его продолжение. Во входном файле содержится три пары чисел, являющихся координатами точек А, В, С. В файле содержится ответ "На отрезок" или "На продолжение".

program z3;

var x1, x2, x3, y1, y2, y3, ac, ab, bc, a1, b1:real; f, f1:text;

begin

assign (f, 'z1. dat');

rewrite (f);

readln (x1, y1);

readln (x2, y2);

readln (x3, y3);

writeln (f, x1, y1);

writeln (f, x2, y2);

writeln (f, x3, y3);

close (f);

ac:=sqr (x1-x3) + sqr (y1-y3);

ab:=sqr (x2-x1) + sqr (y2-y1);

bc:=sqr (x3-x2) + sqr (y3-y2);

b1: = (ab+bc-ac) / (2*sqrt (ab*bc));

a1: = (ac+ab-bc) / (2*sqrt (ac*ab));

if (a1 < 0) or (b1 < 0) then

begin

assign (f1, 'z1. rez');

rewrite (f1);

writeln ('na prodolzenue');

writeln (f1,'na prodolzenue'); close (f1)

end

else

begin

assign (f1, 'z1. rez');

rewrite (f1);

writeln ('na otrezke');

writeln (f1,'na otrezke');

close (f1)

end

end.