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

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