Выпуклый четырехугольник на плоскости задан координатами своих вершин. Найти длины его диагоналей.Помогите, эту программу надо написать в ПАСКАЛЕ.Зарaнее спасибо.

var x1,y1,x2,y2,x3,y3,x4,y4:integer; N1,N2:real; begin writeln('Введите координаты первой точки - '); readln(x1,y1); writeln('Введите координаты второй точки - '); readln(x2,y2); writeln('Введите координаты третьей точки - '); readln(x3,y3); writeln('Введите координаты четвертой точки - '); readln(x3,y3); n1:= sqrt( (x3-x1) * (x3-x1) + (y3 - y1) * (y3-y1) ); n2:= sqrt( (x4-x2) * (x4-x2) + (y4 - y2) * (y4-y2) ); writeln('Длина первой диагонали - ',n1); writeln('Длина второй диагонали - ',n2); readln; end.Держи.