Программа на pascal. вывести на экран все числа кратные заданному а, из интервала указанного или так наверно понятнее: пользователь ввел число а и интервал чисел, из этих чисел вывести на экран кратные числу а.

пусть введенный интервал будет

b и c,где b< c

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.

юра из новгородатоля из москвы

алеша из томска

коля из перми

витя из санкт-петербурга 

пусть введенный интервал будет

b и c,где b< c

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.