Определите, что будет напечатано в результате выполнения следующего алгоритма var m, k, i: integer; mas: array[1..7] of integer; begin mas[1]: =5; mas[2]: =5; mas[3]: =4; mas[4]: =6; mas[5]: =6; mas[6]: =6; mas[7]: =-8; m: =0; k: =1; for i: =1 to 6 do if mas[i] =mas[i+1] then k: =k+1 else begin if k > m then m: =k; k: =1 end; write(m); end.

будет напечатано число 3

Авот и ошибочка!   вот алгоритм в исправленном виде! var  m, tons, kilos, grams: integer; begin  write('введите массу: ');   read(m);   // чтобы найти кол-во тонн, разделим нацело введенную массу  // на 1000000  tons : = m div 1000000;   // div - деление нацело  // чтобы найти кол-во килограмм, сначала возьмем остаток    // деления на 100000, затем полученное число разделим    // нацело на 1000.  kilos : = (m mod 100000) div 1000;   // mod - остаток от деления  // граммы - последние 3 цифры введенного числа  grams : = m mod 1000;   writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.'); end.

Var   m, tons, kilos, grams: integer; begin   write('введите массу: ');   read(m);   // чтобы найти кол-во тонн, разделим нацело введенную массу   //  на 1000000   tons : = m div 1000000;   // div - деление нацело   // чтобы найти кол-во килограмм, сначала возьмем остаток    // деления на 100000, затем полученное число разделим   // нацело на 1000.   kilos : = (m mod 100000) div 1000;   // mod - остаток от деления   // граммы - последние 3 цифры введенного числа   grams : = m mod 1000;     writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.'); end.