Дано целое число. если оно кратно 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.