Для решения этой задачи на Паскале воспользуемся следующим кодом:

program SumOfMultiplesOfThree;
var
n, sum, i: integer;
begin
sum := 0;
write('Введите число n: ');
readln(n);
for i := 1 to n do
begin
if i mod 3 = 0 then
sum := sum + i;
end;
writeln('Сумма натуральных чисел от 1 до ', n, ' кратных 3: ', sum);
end.

Этот код позволяет находить сумму натуральных чисел от 1 до n, которые кратны 3. Пользователю необходимо ввести число n, а затем программа будет выполнять подсчет суммы чисел кратных 3.