Дано число. Если оно не делится на 5, то прирастить число

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