var
a, b: <em>integer</em>;
begin
readln(a, b);
writeln(a - trunc(a / b) * b);
<span>end.</span>
ИСХОДНЫЙ
Яша Арбузов
Катя Арбузова
Коля Белкин
Лена Волкова
Дима Иволгин
Серёжа Тополев
Валя Стрелина
Роберт Щукин
Марина Яблочкова
так как хочет Марина)
Марина Яблочкова
Роберт Щукин
Сережа Тополев
Валя Стрелкина
Дима Иволгин
Лена Волкова
Коля Белкин
Катя Арбузова
<span>Яша Арбузов </span>
А - <span>11100001 - 225
б - </span>11100010 - 226<span>
а - </span><span>11100001 - 225
к - </span><span>11101011 - 235
С - </span><span>11110011 - 243
о - </span>11101111 - 239<span>
р - </span>11110010 - 242<span>
о - </span>11101111 - 239<span>
б - </span>11100010 - 226<span>
а - </span>11100001 - 225<span>
н - </span>11101110 - 238
1-4
2-вообще, программа составлена неверно(being), но если не считать этого, то i=s=5
5-3
6-(A*B)/(C*D)/E
7-не указан символ ";" после команды 2c:=b2*b2
8-10
9-4
10-(ac+bc^2-bcd-a+b^2)/(bc)+0.11