Задание 1
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
begin
var a,b,c:real;
Read(a,b,c);
var p:=a+b+c;
Writeln('P=',p);
p/=2;
Writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)))
end.
Задание 2.
a⁶ = (a²)×((a²)²)
a:=a*a; b:=a*a; b:=b*a;
a²¹ = a¹⁶×a⁴×a¹; a⁴ = ((a²)²); a¹⁶=(a⁴×a⁴)²
b:=a*a; b:=b*b; c:=b*b; c:=c*c; c:=c*b; c:=c*a;
a¹⁰ = a⁸+a²; a⁸ = ((a²)²)²
b:=a*a; a:=b*b; a:=a*a; b:=a*b;