Объяснение: Программа написана на PascalABC
Program Z5;
var x:real;
BEGIN
write('Задайте действительное число x=');
read(x);
while x>=0 do x:=x-5;
write('Нове значение x равно ',x);
END.
