petyaGavrikov

Verified answer

Var a:integer;
begin
write('a='); readln(a);
if a mod 5 = 0 then writeln('Yes') else writeln('No'); 
end.

Пример:
a=15
Yes