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

var  N: word;begin  write('N = ');   readln(N); { <-- вводим трехзначное число }  writeln;   { Находим и выводим первую цифру числа  как целую часть при делени на 100: }   writeln('Первая цифра числа: ', N div 100);  readln