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

не работает-обращение в 0 любого числа

все ок

робит

прога

Странная задача, однако..но:program z1;var k:integer;beginwriteln('Введите число');readln(k);while(k>0) dok:=k-1;writeln(k);end.