Создать объект, который будет принимать ключи name(имя), age(возраст), sex(пол)…

Добавить в данные ключи значения, которые введет пользователь

Создать функцию, которая будет удалять, изменять, добавлять данные в объект в зависимости от того, что выберет пользователь.

Дано натуральное число n. Посчитать количество цифр в числе.

{Подсчет количества цифр начнем с последней цифры числа. Увеличим счетчик цифр на единицу. Число уменьшим в 10 раз (тем самым мы избавляемся от последней цифры числа). Далее с получившимся числом проделаем ту же последовательность действий и т. д., пока число не станет равным нулю. Примечание: в теле цикла обязательно должен быть оператор, влияющий на соблюдение условия, в противном случае произойдет зацикливание.}

program prim1;

uses crt;

var m, n: longint;

k: integer; {счетчик цифр}

begin

clrscr;

{Вводим целое число.}

writeln('Введите N='); readln(n);

{Запоминаем его и счетчику цифр присваиваем начальное значение.}

m:=n;k:=0;

{Пока m<>0 делать цикл.}

while m <>0 do

begin

{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}

k:=k+1; m:= m div 10; {Inc(k) }

end;

{Вывод количества цифр.}

writeln('B числе ',n,'- ',k, ' цифр!');

readln;

end.