Verified answer

var a:array [1..100] of real;
i,n:integer;
Begin
    n:=8;
    for i := 1 to n do begin
        read(a[i]);
        a[i]:= a[i]*2;

   end;

    for i:= 1 to n do
        write(a[i],'' );
End.