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

program Znanija;var a:integer;beginreadln(a);if a mod 5 = 0 thenwriteln(a / 5)elsewriteln(a * 5);end.