uses crt;
var
a,b,c,p,m,h,s1,s2:real;
function square(x,y,z:real):real;
begin
p:=(x+y+z)/2;
square:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
begin
clrscr;
write('vvedite a,b,c,p,m,h:');
readln(a,b,c,p,m,h);
s1:=square(a,b,c);
s2:=square(p,m,h);
if s1>s2 then writeln('s1>s2') else writeln('s2>s1');
readln;
end.
Подпрограммы и функции |