Паскаль. проверить равно ли целое трехзначное число а сумме кубов своих цифр​

program programone;

var

a,ed,des,sot:Integer;

begin

ReadLn(a);

sot:=a div 100;

des:=(a mod 100) div 10;

ed:=a mod 10;

if ed*ed*ed+des*des*des+sot*sot*sot=a then

WriteLn('Число равно сумме кубов своих цифр')

else

WriteLn('Число не равно сумме кубов своих цифр');

end

Охранник образовательной организации (работник по обеспечению охраны образовательной организации) при обеспечении внутриобъектового и пропускного режимов обязан:

- руководствоваться настоящей должностной инструкцией;
- соблюдать конституционные права и свободы человека и гражданина, права и законные интересы физических и юридических лиц;
- обеспечивать защиту объектов охраны от противоправных посягательств;
- незамедлительно сообщать руководителю охранной организации и в соответствующие правоохранительные органы ставшую ему известной информацию о готовящихся либо совершенных преступлениях, а также о действиях, об обстоятельствах, создающих на объектах охраны угрозу безопасности людей;
- предъявлять по требованию сотрудников правоохранительных органов, других граждан удостоверение частного охранника;
- не препятствовать законным действиям должностных лиц правоохранительных и контролирующих органов при осуществлении указанными должностными лицами своей деятельности;
- всегда иметь при себе мобильное (носимое) устройство (брелок с кнопкой) экстренного вызова полиции (при наличии);
- постоянно следить за состоянием технических средств охраны, систем видеонаблюдения и систем контроля и управления доступом, которыми оборудован объект охраны, в соответствии с рекомендациями, предоставленными технической службой (организацией), и о всех неисправностях или нестандартных ситуациях докладывать руководству охранной организации и делать записи в соответствующих журналах (книгах) служебной документации;
- при выходе из строя технических средств охраны повысить бдительность, а при необходимости требовать от руководителя охранной организации либо начальника охраны (объекта, участка) введения режима усиления охраны объекта.

Если панель инструментов "рисование" или "текстовые эффекты" не видна, перейдите в меню по пути вид – панели инструментов для активации панели инструментов. на панели инструментов рисование или текстовые эффекты щёлкните значок галерея текстовых эффектов. значокв диалоговом окне галерея текстовых эффектов выберите стиль текстового эффекта и нажмите кнопку "ок". объект текстового эффекта вставляется в документ. объекты текстовых эффектов являются пользовательскими фигурами. с панели инструментов "параметры трёхмерного изображения" можно в любой момент перейти от двумерного просмотра к трёхмерному и обратно. дважды щёлкните объект, чтобы перейти в режим редактирования текста. замените стандартный текст эффекта своим. чтобы выйти из режима редактирования текста, нажмите клавишу esc.