Перевод кода с pascal на python

Помогите пожалуйста, у меня есть код на Pascal и мне нужно перевести его на Python В Pascal ни разу в жизни не программировал, поэтому прошу помощи

uses crt;
const t=0.01;
function Dl(x1,y1,x2,y2:real):real;
begin
Dl:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
function Cs(a,b,c:real):real;
begin
Cs:=(b*b+c*c-a*a)/(2*b*c);
end;
function Ug(c:real):real;
begin
if c=0 then Ug:=pi/2
else if c>0 then Ug:=arctan(sqrt(1-c*c)/c)
else Ug:=pi+arctan(sqrt(1-c*c)/c);
end;
var x1,y1,x2,y2,x3,y3,x4,y4:real;{координаты}
    a,b,c,d,ac,bd:real;{длины сторон и диагоналей}
    c1,c2,c3,c4:real;{косинусы углов при вершинах}
    u1,u2,u3,u4:real;{углы при вершинах}
begin
clrscr;
writeln('Введите координаты вершин четырехугольника в порядке обхода:');
readln(x1,y1,x2,y2,x3,y3,x4,y4);
a:=Dl(x1,y1,x2,y2);
b:=Dl(x2,y2,x3,y3);
c:=Dl(x3,y3,x4,y4);
d:=Dl(x1,y1,x4,y4);
ac:=Dl(x1,y1,x3,y3);
bd:=Dl(x2,y2,x4,y4);
c1:=Cs(bd,a,d);
c2:=Cs(ac,a,b);
c3:=Cs(bd,b,c);
c4:=Cs(ac,c,d);
u1:=Ug(c1);
u2:=Ug(c2);
u3:=Ug(c3);
u4:=Ug(c4);
if (abs(u1+u2-pi)<t)and(abs(u3+u4-pi)<t)then write('Трапеция')
else write('Не трапеция');
readln
end.```

Ответы (0 шт):