Составить программу, которая проверяет, является ли четырёхугольник, заданный координатами своих вершин ромбом.

program jfjffj;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
function romb(a,b,c,d:real):real;
begin
if (a=b)and(b=c)and(c=d)then
writeln('ромб')else
writeln('четырёхугольник');
end;
begin
write(x1,y1,x2,y2,x3,y3,x4,y4);
readln(x1,y1,x2,y2,x3,y3,x4,y4);
writeln('четырёхугольник является ',romb);
end.