Программа на Pascal.
вывести на экран все числа кратные заданному А, из интервала указанного пользователем...
или так наверно понятнее:
пользователь ввел число А и интервал чисел, из этих чисел вывести на экран кратные числу А.
пусть введенный интервал будет
B и C,где B
var a,b,c,i:longint;
begin
read(b,c);
for i:=b to c do
if i mod a=0 then write(i);
end.