Вывести ** экран в строчку первые N отрицательных чисел

Question

Вывести на экран в строчку первые N отрицательных чисел

Answer 1

Program n1;
var i,n: integer;
begin
readln(n);
for i:=1 to -n do write(-i,' ');
end.