Задача, Pascal

[Владимир Вайдер]

Помогите с задачей. Я написал так:

Program Z1;
Var i:integer;
K:real;
a :array [1..6] of integer;
Begin
Writeln(‘vvedite massiv ’);
For i := 1 to 6 do
Readln(a[i]);
K:=0;
For i:= 1 to 6 do
K:= SQRT(ABS(a[i]))/SQR(a[i]);
Writeln(‘K= ‘, K);
Readln
End.

Скажите правильно ли? Если нет, то можно полностью код? Заранее спасибо

[Hacker19_90]

там сумма если чё в знаменателе!
делаем так

Program Z1;
uses
    crt;
Var
    i, sum: integer;
    K: real;
    a :array [1..6] of integer;
Begin
    clrscr;
    sum := 0;
    Writeln(‘vvedite massiv ’);
    For i := 1 to 6 do
    begin
        Readln(a[i]);
        sum := sum + sqr(a[i]);
    end;
    For i:= 1 to 6 do
    begin
        K :=  sqrt(abs(a[i]))/sum;;
        Writeln(‘K[', i, ']= ‘, K:4:3);
    end;
    ReadKey;
End.