Составьте программу с блок схемой: 4. Заданы площади круга и квадрата

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