Составить блок-схему и программу. Условие задачи: Даны координаты вершин треугольника. Определить является ли треугольник равносторонним.

type point = record             x,y: real;      end; var i: integer;     a,b,c: real;     pts: array[1..3] of point; begin   writeln('координаты точек - через пробел');   for i:=1 to 3 do   begin     writeln('x',i,'  ','y',i);     readln(pts[i].x,pts[i].y);   end;   a:=sqr(pts[1].x)+sqr(pts[1].y);   b:=sqr(pts[2].x)+sqr(pts[2].y);   c:=sqr(pts[3].x)+sqr(pts[3].y);   if (a=b) and (a=c) then   writeln('треугольник равносторонний')   else  writeln('треугольник НЕ равносторонний'); end.