Program pr2;
var x, y:real;
begin
writeln('Введи координаты: ');
readln(x,y);
if ((x<0) and (y>0)) or ((x>0) and (y>0)) then
if x<0 then begin<br> 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.
Шетсую тебе скинули