Program pr2;
var x, y:real;
begin
 writeln('Введи координаты: ');
 readln(x,y);
 if ((x0)) or ((x>0) and (y>0)) then
                                           if x<0 then begin
                                                       x:=-x;
                                                       if x=y then writeln('На границе')
                                                              else if x>y then writeln('Нет')
                                                                          else writeln('Нет')
                                                                          end
                                                  else if x=y then writeln('На границе')
                                                              else if x>y then writeln('Нет')
                                                                          else writeln('Нет')
                                            else writeln('Да');
end.
program pr5;
var a, b, c: integer;
begin
 writeln('Введи значения длин сторон: ');
 readln(a,b,c);
 if a=b then
        if b=c then writeln('Треугольник расносторонний')
               else writeln('Треугольник нерасносторонний')
        else writeln('Треугольник нерасносторонний');
end.
Шетсую тебе скинули