Понятие массива

ачи одним из способов.
Первый способ:
Program krugi1;
Var
S, R: array1. . 10 of real;
x: real; k, n: integer;
begin
for k1 to 10 do
begin
writeln(ВВЕДИТЕ ПЛОЩАДЬ , k,КРУГА); readln (Sk);
Rk:sqrt(Sk/pi);
end;
x:R(1); n:1;
for k:2 to 10 do
begin
if Rk