"!Женя!"

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.