Ребят нз что делать. Работа как я сообразил должна быть выполненная

Человек спрашивает, что делать. И почему бы не ответить? - Отвечаю: Для вас надо написать программку, способную ответить на вопрос.

Вы не правы: идиотизм не имеет возраста. Мне довелось проводить на пенсию "конструктора", не знакомого с понятием КПД. Директор, имеющий научную ступень кандидата технических наук, не умел читать - "знаю все буковкы, но не могу назвать слово". Да и "сверстники" подобного отношения не заслужили.

Ну, баран-то уж точно ни чём не виноват! ;-)

Что дотрагивается ответа, то либо я разучился читать и понимать Паскаль, либо - чем таковой ответ, так лучше никакого.

"Тренься вон - на кошках!" (с). "Операция Ы". ;-)

Var  N: word;
begin  write('N = ');   readln(N); lt;-- вводим трехзначное число   writeln;   Обретаем и выводим первую цифру числа  как целую часть при делени на 100:    writeln('1-ая цифра числа: ', N div 100);  readln