Pascal:
Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые при делении на данное число K, дают в остатке число 4.

Остаток при делении числа n на k есть результат операции n mod kvar  a,b,i,k:integer;begin  Write('Укажите границы интервала [A;B]: '); Read(a,b);  Write('Задайте число k: '); Read(k);  Write('Отобранные числа: ');  for i:=a to b do    if i mod k =4 then Write(i,' ')end.ПримерУкажите границы интервала [A;B]: 8 27Задайте число k: 5Отобранные числа: 9 14 19 24