Очень СРОЧНО!!!!!В Pascal ABC составить задачу: Вывести на экран первые 10 нечётных отрицательных чисел.

Можно было использовать цикл For, и задача бы получилась в 3 строки:)

program z1;var i,k:integer;begink:=0;i:=0;while i <> 10 do begindec (k);if (abs (k) mod 2 =1 ) and (k < 0) thenbeginwriteln (k);inc (i);end;end;end.