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

vara:integer;beginwriteln('Введите число');read(a);if a mod 5<>0 then begina:=a*5;writeln(a);endelsewriteln(a/5);end.