Решить задачу на Паскале. Заданы площади круга S1 и квадрата S2. Определить…

Program nm13; uses crt; var S1,S2,d,a,diag: real; beginwriteln ('vvedi ploschad kruga i ploschad kvadrata'); readln (S1); readln (S2); d: =2*sqrt (S1/3,14); a: =sqrt (S2); diag: =2*sqrt (2*a*a); if diag>d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate '); readln; end.