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