Проверьте, делится ли выбранное число на 5, на 11 или 13 нужно сделать в pascal abc

Var a: integer; begin writeln('введите число'); readln(a); if (a mod 5=0) then writeln('число ',a,' делится на число 5') else writeln('число ',a,' не делится на число 5'); if (a mod 11=0) then writeln('число ',a,' делится на число 11') else writeln('число ',a,' не делится на число 11'); if (a mod 13=0) then writeln('число ',a,' делится на число 13') else writeln('число ',a,' не делится на число 13'); end.

1)52: 2=26(чел) любят пирож

2)26-20=6(чел) любят морож

ответ 6 чел

минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,

ответ: 600 бит