З'ясувати чи число А кратне 5. Відповідь вивести у вигляді Yes/No

Question

З'ясувати чи число А кратне 5. Відповідь вивести у вигляді Yes/No

Answer 1

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var a:=ReadInteger('n=');
  if a mod 5=0 then Writeln('Yes')
  else Writeln('No')
end.

Comments

Здесь опечатка есть: "thet"

---

Да, конечно, спасибо

Answer 2

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

Пример:
a=15
Yes

Comments

После запуска программы на экране должен появиться текст "а=", затем нужно ввести какое-нибудь число и нажать Enter

---

Після запуску програми на екрані повинен з'явитися текст "а =", потім потрібно ввести якусь кількість і натиснути Enter