Помогите пожалуйста!

Question

Помогите пожалуйста!

---

Answer 1

Program help1;var n:integer;beginread(n);if (n in [-1..40]) and (n<>40)thenwrite('Принадлежит')elsewrite('Не принадлежит');end.


program help2;
var n:integer;
begin
read(n);
if (n mod 5 = 0)
then
write('Кратно')
else
write('Не кратно');
end.

Comments

program help1;
var n:integer;
begin
read(n);
if (n in [-1..40]) and (n<>40)
then
write('Принадлежит')
else
write('Не принадлежит');
end.

---

Первая программа

---

выручил