За подробное решение 25 используя законы логики выражения: a) (с l ( а & в) l(не а & в ) б) не ((а l в) & (не с)) b) (а l в & с ) l ( а lв & (не с)

Алгоритм на языке pascal (если надо на алгоритмическом языке, скажите в комментариях) //pascal var a,b,c: real; begin   repeat   writeln('введите стороны треугольника');   readln(a,b,c);   //проверка, что такой треугольник существует   //если да то идем дальше. иначе еще раз вводим длины сторон   until  (a> 0) and (b> 0) and  (c> 0) and (a+b> c); if (a=b) and (b=c) then writeln('равносторонний') else   writeln('не равносторонний'); end.

//могу ошибаться, тестов не проводил //a type procedure proi(n: integer; var p: integer);   i: integer; begin p: =1;   for i: =1 to n do     if ar[i]< 0 then p: =p*ar[i]; end; //б procedure proi(n: integer; var ar: array of integer);   i,p,k: integer;   b: boolean; begin p: =1; k: =0; b: =true; while p< n do   begin   p: =p+1;   for i: =2 to p div 2 do   if p mod i=0 then     begin       b: =false;       break;     end;   if b=true then     begin       k: =k+1;       setlength(ar,k+1);       ar[k]: =p;     end;   b: =true;   end; end;