abc паскаль - ошибка массив

[Алькер]

uses crt;
type mas=array[1..98] of integer;
var A,F,Q,C:mas;
    i,s:integer;
begin
 clrscr;
  writeln('Массив первый:');
   for i:=1 to 98 do
    begin
     A[i]:=random(100)-2;
     write(A[i]:4);
    end;
  writeln;
   writeln('Массив второй :');
    for i:=1 to 98 do
     begin
      F[i]:=random(100)-2;
      write(F[i]:4);
     end;
  writeln;
   writeln('Массив третий :');
    for i:=1 to 8 do
     begin
      Q[i]:=random(60)-52;
      write(Q[i]:4);
     end;
  writeln;
  writeln('Массив четвертый:');
    for i:=1 to 8 do
     begin
      C[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]);
      write(C[i]:4);
     end;
     writeln;
end.

Даны массивы A98), F98),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формулеC[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]);

Вычисление по формуле (x^2+y^2)/2+sin(X*Y) оформить в виде подпрограммы.

[ZX Spectrum-128]

Скорее всего, корень из отрицательного числа вылетает. Генерируйте положительные числа.

[Алькер]

он ругается мол присваенивание типу реал тип integer, в этом месте C[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]).. хотя вроде правильно написано....

[type_Oleg]

Сообщение от Алькер

... C[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]).. хотя вроде правильно написано....

Нет, неправильно.
C - массив элементов целого типа . А функции sqrt, sin всегда возвращают действительный тип. Даже например sqrt(4) - будет 2 в действительном виде.
И операция деления / тоже всегда возвращает действительное. Даже 1/1.

Поэтому C делайте array of Real.

PS Кстати, sqrt - это корень, а вам нужен квадрат. Проще сделать A[i]*A[i] и т.д. Но все равно Sin - возвращает действительное.