Вычислите остаток от деления 155%8=
​

Var   i,n,s: byte; //здесь мы описываем переменные i- флаг, n - наше число n, s- переменная "деления" label l1; // здесь мы  begin       l1: i: =0;   //установка метки на начало программы и установка флага на первоначальное значение - нет       repeat //проверка n на подлинность       if i=1 then       write('не верный ввод данных! повторите ввод: ')        else       write('введите номер n: '); // условие при котором в первый раз выводится предложение где нас просят ввести n, а если же мы её ввели не правильно выводится ошибка и опять нас просят ввести n так продолжается пока мы не введем правильный n       readln(n);       i: =1;   // установка флага -  да       untill    (n> =1) and (n< 100); // ограничения n       writeln('ваше множество: '); // вывод множества;       for i: =n to 99 do  // из условия следует что числа будут в диапазоне от 1 до 99 т.к они натуральные и двухзначные        begin           s: =i mod 11;   //условие при котором цифры повторяются    т.е. делятся на 11           if (s< > 0) then write(i,';   '); // проверка условия выше;       end;       writeln;       write('повторить программу? (1-да, 0-нет)-'); // предложение о том сделать ли  еще раз программу       read(i);       if (i=1) then goto l1; // опять же установка флага и переход к метке l1; если же условие не выполняется,  то конец программы end.