задание 2:
program msnvvv; var a,b,c: integer; begin  writeln('введите 3 числа');  readln(a);  readln(b);  readln(c);  if (ab) and (bc) and (ac) 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.