. Даны координаты трех вершин треугольника, описать их как записи. Найти длины сторон этого треугольника.

Program qfdw; uses crt; Type    vershina=Record        Tochka:string;        X,Y:real;      end;    ps=File of vershina; Var f:ps;     z,a,b,c:vershina;   i:integer; Begin   assign(f,'1.dat');   rewrite(f);   writeln('Введите вершины треугольника и их координаты: ');   for i:=1 to 3 do     begin       writeln(i,'-я вершина');       write('буква: ');read(z.tochka);       write('X=');read(z.x);       write('Y=');read(z.y);       write(f,z);     end;   Close(f);   assign(f,'1.dat');   reset(f);   read(f,a);     read(f,b);     read(f,c);     close(f);   writeln('Cтороны треугольника:');   writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);   writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);   writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2); end.