{* Задача 246 *}

Unit ZADACH246;
Interface
Implementation
Begin
 writeln('Даны символы s1, … , s80. Определить количество неверных равенств среди: s1= s41, s2= s42, … , s40= s80.');
End.

Program zadach246;

Uses zadach246.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Предопределенные *}
  s_max = 80;
  / / максимальный размер массива
Type {* Типы переменных *}
  massiv_s = Array [1..s_max] Of integer;
  Index1 = 1..s_max;
  / / Index1 интервал 1..80
Var {* Необходимые переменные *}
  s                           : massiv_s;
  / / массив s         razm_s : Index1;
  i                           : integer;
  k                           : integer;
Begin
  razm_s := 80;
  For i := 1 To razm_s Do {* Переменная i увеличивается с 1 до razm_s *}
  Begin
    s[i] := random(razm_s);
    writeln('s' : 2, i, '=', s[i], ' ');
  End;
  k := 0;
  / / обнуление счетчика
  For i := 1 To 40 Do {* Цикл для i => [1 .. 40] *}
  Begin
    If s[i]s[i + 40] Then
      k := k + 1
    Else writeln('s', i, '=s', i + 40, '=', s[i]);
  End;
  writeln('число неверных равенств - ', k)
End.