Дано целое число. Если оно кратно 5, то вывести на экран сообщение: «Да» и уменьшить число в 5 раз. В противном случае вывести на экран сообщение «Нет» и при этом число увеличить в 5 раз.

=))readln;

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.