Программа будет выглядеть примерно так:

program SumOfMultiples;
var
A, B, i, sum: Integer;
begin
writeln('Введите границы диапазона A и B:');
readln(A, B);
sum := 0;
for i := A to B do
begin
if i mod 3 = 0 then // проверяем, является ли i кратным 3
sum := sum + i; // если да, то добавляем его к сумме
end;
writeln('Сумма всех кратных чисел от ', A, ' до ', B, ' равна ', sum);
end.

Просто скопируйте этот код в среду разработки Pascal и запустите программу. Введите границы диапазона A и B, и программа посчитает сумму всех кратных чисел от A до B. Убедитесь, что A и B вводятся в правильном порядке (A должно быть меньше B).