var
a,b,c,P:real;
begin
write('Введите сторону a=');read(a);
write('Введите сторону b=');read(b);
write('Введите сторону c=');read(c);
P:=(a+b+c)/2;
write('S=',sqrt(p*(p-a)*(p-b)*(p-c)):5:2);
end.

2.
var
A,B,X,C,Y,Z:integer;
begin
write('Введите значение A=');read(A);
write('Введите значение B=');read(B);
write('Введите значение X=');read(X);
write('Введите значение C=');read(C);
write('Введите значение Y=');read(Y);
write('Введите значение Z=');read(Z);
writeln('S=',(A+B*X)+(C*Y*Z));
end.