Составить логическое выражение и таблицу истинности для следующего суждения.
"Треугольник является равносторонним тогда и только тогда, когда равны все его стороны или равны все его углы"

min і max нужно присвоить а[1].

в цикле sum [i]: =sum+mas[i,j];

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end.