Решать в PascalABC Это ОЧЕНЬ срочно!!!

Question

Решать в PascalABC Это ОЧЕНЬ срочно!!!

---

---

---

---

Comments

Решіте хотябы 3 и 4 задачи! Я приму!

Answer 1

Var x, y: integer;
begin
     readln(x, y);
     if (frac(x / 2) = 0) and (frac(y / 2) = 0) then writeln('Не виден. Закрывает гвоздь ', x/2, ';', y / 2)
        else writeln('Виден');
end.

Это 3