var a,b,c:integer;
yp,s:Real;
Begin
s:=sqrt(yp*(yp-a)*(yp-b)*(yp-c));
WriteLn('S=',s, 'kvadrat birlik');
ReadLn;