Дано число. если оно делится на 11, то уменьшить число в 11 раз, в противном случае уменьшить число на 11.

Program Znanija;
var a:integer;
begin

readln(a);

if a mod 11 = 0 then
writeln(a / 11)
else
writeln(a - 11);

end.