Встроке 13 пишет "нет перегруженной подпрограммы с такими типами данных"

program hh;
var x: array[1..100] of real;
k: integer;
begin
write('введите первые элементы и их количество');
write('x[1]=');
read(x[1]);
write('x[2]=');
read(x[2]);
write('n=');
read(k);
for k: =3 to k do begin
x[k]: =sin*sin(x)[k-1]+(cos(x*x*x)[k-2]-1/x[k-1]);
end;
for k: =1 to n do begin
writeln('x[',k,']=', x[k]: 8: 3);
end;
end.

LunyaShag    2   12.11.2019 16:12    0