Пример кода на Pascal:

program Multiples;
var
A, B, K, i: integer;
begin
write('Введите число A: ');
readln(A);
write('Введите число B: ');
readln(B);
write('Введите число K: ');
readln(K);
writeln('Числа, кратные ', K, ' из промежутка [', A, ',', B, ']:');
for i := A to B do
begin
if i mod K = 0 then
writeln(i);
end;
end.

Этот код спрашивает у пользователя числа A, B и K, а затем выводит на экран все числа из промежутка [A, B], которые кратны K.