б) Составить блок-схему для решения задачи. Даны 2 точки на плоскости. Определите, какая из них находится ближе к началу координат D=sqrt(sqr(x2-x1)+sqr(y2-y1)).

program tocka;

var a,b,c:real;

begin

writeln('введите две точки');

readln(a,b);

if (abs(a)<abs(b)) then

writeln('ближе точка ', a);

if (abs(a)>abs(b)) then

writeln('ближе точка ', b);

if (abs(a)=abs(b)) then

writeln('они равноудалены ');

end.