Помогите пожалуйста Программа в Паскале написать Уменьшение положительного числа ** 1 до...

Question

Помогите пожалуйста
Программа в Паскале написать
Уменьшение положительного числа на 1 до тех пор,пока оно не станет отрицательным. Как только число становится отрицательным,команда повторения заканчивает свою работу

Answer 1

 var   
a : integer;    
begin 
readln (a);
//Цикл с условием
//Он выполнятся пока верно его условие (a>=0)   
While a >= 0 do 
 a := a - 1; 
writeln (a); 
end.

Answer 2

Var n:Integer;
Begin 
Read(n); 
while (n>=0) do
  begin 
   n:=n-1; 
  end;
Writeln('Finished');
end.