varSk,Skv:integer;beginread(Sk,Skv);
if Sk <= pi*Skv/4 then writeln('Входит')else writeln('Не входит');
read;
end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
