Условные операторы, двумерные массивы

program treugolnik;
uses crt;    {Подключаем модуль, содержащий функцию очистки экрана}
var a, b, c : real;  {Начальные данные}
 
BEGIN
clrscr;       {Очищаем экран}
writeln ('Введите стороны треугольника');  {Вводим стороны треугольника}
 
read (a, b, c);  {Проверяем соотношение сторон треугольника}
 
 if (((a + b) > c) and ((a + c) > b) and ((b + c) > a)) then
 
          begin
 
        writeln (' C этими данными можно построить треугольник ');  {Печатаем результат проверки}
 
  if ((a = b) and (a = c)) then writeln (' Треугольник равносторонний ');  {Печатаем результат проверки}
  if ((a = b) and (a <> c)) or ((b = c) and (b <> a)) or ((c = a) and ( a <> b)) then writeln(' Треугольник равнобедренный '); {Печатаем результат проверки}
          еnd
 
  else writeln ('Треугольник построить c этими данными нельзя ');  {Печатаем результат проверки}
 
  readln;   { Применяем функцию задержки экрана }
  readln;
 
END.

program  matrix_M_x_N ;
uses crt;    { Подключаем модуль, содержащий функцию очистки экрана}
var  m,n,i,j,k,z: integer;    { Объявляем переменные – счетчики }
a: array[1..20, 1..20] of  integer;    { Объявляем  массив чисел строки  }
r: boolean;
BEGIN
   clrscr;           { Очищаем экран }
   writeln ('Введите  m, n');    { Вводим размер матрицы, где m – кол-во строк, n – кол-во столбцов }
   readln(m,n);
   writeln('Введите массив');    { Вводим массив чисел матрицы }
      for i:=1 to m do     { Задаем цикл перебора строк }   
      for j:=1 to n do      { Задаем цикл перебора столбцов }   
      read(a[i,j]);
    writeln;
    k:=0;
    for i:=1 to m do       { Задаем цикл перебора строк }   
  begin
       r:=true;
       for z:=1 to n do     { Задаем цикл перебора столбцов } 
           begin
       for j:=z to n do     { Задаем цикл перебора элементов от текущего элемента до конца строки }      
       if (a[i,z]<>a[i,j]) and (r<>false) then r:=true     
       else if z<>j then r:=false;       { Если в строке нет совпадающих символов, то флаг r устанавливаем в false }   
          end;
       if r=true then k:=k+1;      { Если флаг r=true, то счетчик k увеличиваем на 1 }   
  end;
    writeln ('Количество строк с различными элементами : ',k);
    readln;
    readln;
END.