высм ывам

Program A12;
  var
   x: array [1..5] of real;
   c: array [1..5] of real;
  i, n: integer;
 begin
 writeln ('vvedite massiv X');
   For N:=1 TO 5 do  readln (x[n]);
    C[i]:=x[n]/n;
    For i:=1 to 5 do
    writeln (c[i]);
    readln;
   end.