Program zadcah;
Var a,s,s1,r,p:Real;
Begin
 Write('Ââåäèòå ðàäèóñ: ');
 ReadLn(r);
 Write('Ââåäèòå ñòîðîíó êâàäðàòà: ');
 ReadLn(a);
 p:=3.14;
 s1:=p*sqr(r); {S êðóãà}
 s:=sqr(a); {S êâàäðàòà}
 If s>s1 then Writeln('S êâàäðàòà áîëüøå, ÷åì S êðóãà íà ',s-s1)
         Else WriteLn('S êðóãà áîëüøå, ÷åì S êâàäðàòà íà ',s1-s);
End.