Помогите с 5ой задачей по информатике в программе Pascal 30б

Ответ:

Объяснение: Программа написана на PascalABC

Program Z5;

var x:real;

BEGIN

     write('Задайте действительное число x=');

     read(x);

     while x>=0 do x:=x-5;

     write('Нове значение x равно ',x);

END.