Помогите решить задачу в Free Pascal

["!Женя!"]

Помогите решить задачу в Free Pascal

Известно, что число делится на три тогда и только тогда, когда сумма его цифр делится на три. Проверим этот признак для заданного трехзначного числа X?
:tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837:

 

[Vladimir_S]

Проверим этот признак для заданного трехзначного числа X?

А проверим!

VAR
 N,Sum,R_of_D,i,m:Word;
BEGIN
 Repeat
  Write('N = ');
  Readln(N);
  If (N<100) or (N>999) then writeln('Error: incorrect value!');
 Until (N>99) and (N<1000);
 R_of_D:=N mod 3;
 Sum:=0;
 For i:=1 to 3 do
  begin
   Sum:=Sum+(N mod 10);
   N:=N div 10;
  end;
 Write('Sum of digits is ',Sum);
 m:=Sum mod 3;
 If m=0 then
  Writeln(', so N contains 3 as a factor;')
 else
  Writeln(', so N does not contain 3 as a factor;');
 Writeln('The residue of division of N by 3 is ',R_of_D);
 Readln
END.