Вот правильный ответ надо было массив вписать
Uses crt;
const n=23;
Var
i:integer;
M,D:real;
a:array[1..n] of real;
Begin
M:=0;
D:=0;
For i:=1 to n do
begin
if i>17 then a[i]:=sin(i) else a[i]:=cos(sqr(i))/sin(sqr(i));
M:=M+a[i];
D:=D+sqr(a[i]);
end;
M:=M/n;
D:=D/n-sqr(M);
for i:=1 to n do
writeln(a[i],' ');
writeln('M=',M:0:5);
writeln('D=',D:0:5);
End.