7.

var

   a, b, c : integer;

begin

   readln(a, b, c);

   if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0) then writeln('Есть') else writeln('Нет');

end.

8.

var

   s1, s2 : real;

begin

   write('площадь круга: ');

   readln(s1);

   write('площадь квадрата: ');

   readln(s2);

   if sqrt(s1/pi) > sqrt(s2)/sqrt(2) then writeln('Входит') else writeln('Не входит');

end.