Дано число. если оно не делится на 5, то увеличить число в 5 раз, в противном случае уменьшить число в 5 раз.

Program Znanija;
var a:integer;
begin

readln(a);

if a mod 5 = 0 then
writeln(a / 5)
else
writeln(a * 5);

end.