25 это же легко 1 класс 50-25=25)))
Ответ:
Program test;
Var
a, b, c, e, x, t, n, y: real;
Begin;
readln (a, b, c, e, x);
t:= (Abs(Exp(3*Ln(Sin(x))))+a)*Exp(a*Ln(e));
n:= Exp(Ln(sqr(b)+sqr(c))/3);
y:= t/n;
writeln (y);
End.
Program n1;
const n=8;
var a: array [1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
end;
writeln('эл. с чет номерами: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.
Клавишу Shift - если я не ошибаюсь