Не знаю, на каком языке Вы программируете, поэтому дам решение на стандартном школьном языке PascalABC. Если его немного изменить, то такое решение можно применить и для языка Delphi7. var number:integer; begin write(\'Введите число \'); // запрос на ввод числа read(number); // считывание числа if (number mod 5 <> 0) then number:=number * 5 //если число не делится на 5, то умножим его на 5 else number := number div 5; // если число делится на пять, то поделим его на пять writeLn (number); //выведем ответ end.