[Pascal] Как правильно записать формулу

[Анна8787]

S=e^(∑_(i=1)^30*〖cos〗^2 x_i )+e^∏_(k=1)^10*〖siny_k^2 〗
вот код программы:

var
x : array[1..30] of real;
y : array[1..10] of real;
s,s1,p : real;
i,k : integer;
begin
s1 := 0;
p:= 1;
write('Через пробел введите 30-ть чисел для массива b: ');
  for i := 1 to 30 do 
  begin
 read(x[i]);
 s1 := s1 + exp(sqr(cos(x[i])))
 end;
 write('Через пробел введите 10-ть чисел для массива z: ');
  for k := 1 to 10 do 
  begin
  read(y[k]);
  p := p * exp(sqr(sin(z[i])))
 end;
 writeln('s1 = ',s1:0:2);
  writeln('p = ',p:0:8);
  if p=0 then write('s не определено')
  else
  begin
  s := s1+p;
  writeln('S = ',s:4:2);
  end;
 end.

______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[digitalis]

Лучше бы формулу в явном виде, хотя бы рисунком, а то в этих дебрях х. поймешь.

(∑_(i=1)^30*〖cos〗^2 x_i )

- вот эта запись - из какой минералогии?

[ViktorR]

digitalis

- вот эта запись - из какой минералогии?

Это запись формул в Open Office. Вроде как Tex-овский формат.
Но при вводе текста из поста всё равно надо догадываться (править).
Что-то вроде:

e ^ (сумма квадратов косинусов x) + e ^ (произведение квадратов синусов y)

[digitalis]

Вот оно что... Теперь не удивлюсь, если какое-нибудь задание для немедленного исполнения будет выложено азбукой Морзе .