Найти трехзначные числа, из некой последовательности. Нужна именно программа.

Код Pascal  такая программа?

1  

2  

3  

4  

5  

6  

7  

8  

9  

10  

11  

12  

var

 N: word;

begin

 write('N = ');  

 readln(N); { <-- вводим трехзначное число }

 writeln;  

 { Находим и выводим первую цифру числа

 как целую часть при делени на 100: }  

 writeln('Первая цифра числа: ', N div 100);

 readln

end.

Объяснение: