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

а это правильно ?

спасибо большое

спасибо большое

var a:integer;begin writeln ('a=');readln(a);if a mod 5=0 then writeln ('Yes ',a/5) else writeln('NO ', 5*a);readln;end