Var n: integer;
begin
write('Сколько человек пришло в кружок к Арсену?');
readln(n);
if (n>0) and (n mod 11 = 0) then writeln('У Арсена получится разделить ',n,' человек на ',i div 11,' команд') else writeln('У Арсена не получится разделить ',n,' человек. Останутся недовольными ',i mod 11);
end.