Написать программу на паскале: среди 10 целых чисел вычислить сумму трехзначных чисел, кратных 4

Program summa;

uses crt;

var
n,summ,I:integer;
begin
summ:=0;
for I:=1 to 10 do begin

read (n);
if ((n >=100) and (n <=999)) and (n mod 4 = 0) then summ:=summ+n end;
writeln (summ);
end.