Информатика 8 класс. составьте программу определяющую является ли целое положительное число трехзначным

If ((a div 1000) 0) then writeln ('Число трехзначное')

Главная часть, надеюсь begin, end и readln (a) напишите сами.

div - дает число с отброшенным остатком.

Можете использовать mod - он дает чисто остаток без числа