Вычислить произведение - Turbo Pascal (29230)

const n = 36;
var p, a: double;
    k: integer;
begin
  p := 1;
  for k := 1 to n do
    begin
      a := k * k;
      if a <= 100
        then a := -1 / a
        else if a > 500
          then a := 4;
      p := p * a
    end;
  write('P = ', p);
  readln
end.