Дано целое число. модуль этого число увеличится в 5 раз. решите , что бы число которое будет дано можно ввести с клавиатуры) зарание

Program pr;
uses crt;
Var a:integer;

Begin
   Writeln('Введите число');
   readln(a);
   Writeln( abs(a)*5 );
   readln();
end.