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.