uses School; // PascalABC.NET в версии начиная с 15.04.2020
function Делимость(Число: integer): integer;
begin
var БитоваяСтрока := '';
foreach var Простое in FirstPrimes(16) do
if Число mod Простое = 0 then
БитоваяСтрока := '1' + БитоваяСтрока
else
БитоваяСтрока := '0' + БитоваяСтрока;
Result := Dec(БитоваяСтрока, 2)
end;
begin // Тестовая программа
Делимость(ReadInteger).Print
end.