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

Ответы и объяснения

2013-10-22T13:16:54+04:00
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