Написать на Паскале Остаток Входные данные Вводятся 4 числа: a, b,

program zz1;

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

begin

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

read(a);  

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

read(b);

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

read(c);

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

read(d);

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

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

end.