Pascal ABC:Дано естественное число.Напишите программку, которая инспектирует, является ли оно

Pascal p1;

Var a,b,c,d:integer;

Begin

Readln(a);

B:=a mod 10;

C:= a div 10 mod 10;

D:=a mod 100 div 10;

If (agt;=100) and (alt;1000) then writeln ('трехзначное')

else writeln('не трехзначное');

If b+c+d mod 7=0 then writeln ('сумма кратна семи')

else writeln ('сумма не кратна 7');

End.

Сложненько, так как не особо сообразила, что от нас хотят, извините, если не так