Ввести целые положительные числа n и k, вывести на экран все нечетные числа принадлежащие отрезку [1; n], кратные k.

Какой язык? Pascal?

var n,k,i: integer;
begin
readln (n);
readln (k);
for i:=1 to n do
begin
if ((i mod 2)=1) and ((i mod k)=0) then
writeln (i);
end;
end.