задание 2:
program msnvvv; var a,b,c: integer; begin writeln('введите 3 числа'); readln(a); readln(b); readln(c); if (a<>b) and (b<>c) and (a<>c) then writeln('числа не равны'); if (a=b) and (a=c) and (b=c) then writeln('числа равны'); end.
задание 3:
program msnvvv; var a,b,c,e,d,f: integer; begin writeln('введите стороны треугольника'); readln(a); readln(b); readln(c); e:=a+b; d:=a+c; f:=b+c; if (d>b) and (e>c) and (f>a) then writeln('треугольник существует'); if (d<=b) or (e<=c) or (f<=a) then writeln('треугольник не существует'); end.</span>