Отрезок на плоскости задается двумя несовпадающие конечными точками 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.