Помогите пожалуйста написать программу в паскале

Question

С клавиатуры последовательно запрашиваются и вводятся n чисел. (n заранее вводится с клавиатуры) . Определить Количество трехзначных чисел, кратных 5.

Юлия Масленкова · Accepted Answer

program num_clc; 
var 
 n,result,pos,inp:integer; 
 
Begin 
 write('Введите кол-во'); readln(n); 
 result:=0; 
 for pos:=0 to n do 
 begin 
 write('Введите число ',n,' :'); readln(inp); 
 if (inp>99) and (inp<1000) and (inp mod 5 = 0) then result:=result+1; 
 end; 
 writeln('Кратных чисел ',result); 
 end. 
{Добавил проверку на трехзначность числа}