вычесление суммы

[Dartchuwak]

Illegal Expression

[Sazary]

maladoy В вашем варианте есть ряд синтаксических ошибок.
Исправлено:

program summa;
uses crt;
var
i,m:integer;
x:array[1..1000] of real;
s:array[1..1000] of real;
sum:real;
begin
clrscr;
writeln('vvedite m');
readln(m);
sum:=0;
for i:=1 to m do
 begin
 x[i]:= 1.5+0.1*i;
 s[i]:=(sqr(x[i])-3*x[i]+2)/sqrt(2*sqr(x[i])-1);
 sum:=sum+s[i];
 end;
writeln('summa=',sum:6:3);
readln;
end.

[Dartchuwak]

Вот!Тепер заработала!Спс)