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

Остаток при делении числа n на k есть результат операции n mod k

var
  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