Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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