var i,j,k:integer;
begin
write('Введите диапазон чисел через пробел: '); readln(k,j);
for i:=k to j do begin
if i mod 10 = 4 then write(i, ' ');
end;
end.
var i,j,k:integer;
begin
write('Введите диапазон чисел через пробел: '); readln(k,j);
for i:=k to j do begin
if i mod 10 = 4 then write(i, ' ');
end;
end.