С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.