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

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.