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

Какой язык? Pascal?var n,k,i: integer;beginreadln (n);readln (k);for i:=1 to n dobeginif ((i mod 2)=1) and ((i mod k)=0) thenwriteln (i);end;end.