Дано натуральное число. Найти сумму его делителей, не кратных 3. Нужно написать программу в Паскале через div и mod. Помогите пожалуйста!

Вот так?

program qq;var i,n,s: integer;beginwriteln ('ââåäèòå íàòóðàëüíîå ÷èñëî');readln (n);s:=0;for i:=1 to n doif (n mod i = 0) and (i mod 3<>0) thens:=s+i;writeln (s); end.

В смысле?

Спасибооо!!

Программа считает 1 и само число(Если оно не кратно 3) за делителиprogram n1;  uses crt;var  i,x,s:integer;beginwriteln('Введите число'); readln(x);s:=0;for i:=1 to x do  if (i mod 3<>0) then s:=s+i;writeln(s);end.