//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
write('S=',((a+b)/2)*sqrt(c*c-((a-b)*(a-b)/4)));
end.
Ну вот в принципе можно такую схему
Если я правильно понял формулу то решение будет такое.
program zadacha_1;
var
z, c, v: real;
i, x, y, t : integer;
begin
writeln('Введите Х: ');
read(x);
writeln('Введите Y: ');
read(y);
writeln('Введите T: ');
read(t);
c:=((x * x * x) + (2 * t) + (3 * sqrt(y)));
z:=cos(c) + sin(c);
v:=7*exp(1);
for i:=2 to x do v:=v*v;
z:=z+v;
writeln('Результат равен ', z);
end.
80 Кбайт = 80 *2^(13) =5*2^4 *2^13=5*2^(17) бит
40*32*64= 5*2^3 * 2^5 * 2^6 = 5*2^(14) символов
5*2^(17) / (5*2^14)= 2^3 = 8 бит для одного символа