Написать на Паскале Остаток Входные данные Вводятся 4 числа: a, b, c и d. Выходные данные Выведите все числа на отрезке от a до b, дающие остаток c при делении на d. Если таких чисел не существует, то ничего выводить не нужно. Примеры входные данные 2 5 0 2 выходные данные 2 4 входные данные 2 7 9 14

program zz1;

var a, b, c, d, i:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

write (' введите четвертое число '); / / вводим с клавиатуры четвертое число

read (d);

for i:=a to b do / / организуем цикл от а до b

if i mod d = c then writeln (' найденное число = ', i); / / выводим ответ

end.