1. Реализовать class Seyf. В классе «Сейф» есть поля: ✓ размер сейфа (это целое число, определяющее сколько предметов можно положить в сейф); ✓ содержимое сейфа (массив, количество элементов массива < = поля размера сейфа); ✓ поле - пароля от сейфа (четырёхзначное число. н-р, 1234), пароль скрыт (инкапсуляция). Чтобы положить какой-то предмет в сейф или взять какой-то предмет из сейфа, надо ввести пароль. Пароль задаётся изначально при создании объекта, больше его никак нельзя увидеть, не изменить. Когда мы помещаем какой-то предмет внутрь сейфа (н-р, блокнот), мы должны передать пароль. Сейф сравнивает введённый пароль с паролем, установленным внутри сейфа и, если они совпадают, то предмет помещается в сейф (запоминается в массив), если пароли не совпадают - выводится ошибка. Для того, чтобы взять предмет из сейфа, нужно указать предмет (н-р, блокнот) и пароль. Сейф сравнивает введённый пароль с паролем, установленным внутри сейфа и, если они совпадают, то предмет извлекается из сейфа (удаляется из массива). В массиве «предмета» нет - он возвращается в виде переменной.

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

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