Паскаль. два треугольника заданы координатами вершин. определить, подобны ли эти треугольники.

// pascalabc.net 3.0, сборка 1076 type   point=record   x,y: real   end;   line=record   a,b: point   end;   triangle=record   a,b,c: point;   sa,sb,sc: real; { длины сторон }   end; procedure getpoint(pointname: char; var m: point); begin   write('введите координаты точки ',pointname,'(x,y): ');   read(m.x,m.y) end; function linelength(a,b: point): real; begin   linelength: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end;   procedure createtriangle(var t: triangle; var l: boolean); begin   with t do begin       getpoint('a',a);       getpoint('b',b);       getpoint('c',c);       sa: =linelength(b,c);       sb: =linelength(a,c);       sc: =linelength(a,b);       l: =(sa+sb> sc) and (sa+sc> sb) and (sb+sc> sa)   end end; function triangleislikes(t1,t2: triangle): boolean; var   k1,k2,k3: real; begin   k1: =t1.sa/t2.sa; k2: =t1.sb/t2.sb;   if k1=k2 then begin       k3: =t1.sc/t2.sc;       triangleislikes: =k1=k3       end   else       triangleislikes: =false end; var   t1,t2: triangle;   legal: boolean; begin   writeln('*** первый треугольник ***');   createtriangle(t1,legal);   if legal then begin       writeln('*** второй треугольник ***');       createtriangle(t2,legal);       if legal then           if triangleislikes(t1,t2) then writeln('треугольники подобны')           else writeln('треугольники не подобны')       else writeln('треугольник невозможно построить')       end   else writeln('треугольник невозможно построить') end.

Uses crt; var x,y: real; begin read(x,y); if (x> 0) and (y> 0) then writeln('i') else if (x< 0) and (y> 0) then writeln('ii') else if (x< 0) and (y< 0) then writeln('iii') else writeln('iv'); end.