Можно даже поблагодарить.
Program massiv;
uses crt;
Const N=10;
var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
clrscr;
for i:=1 to n do
begin
write('L[',i,']='); readln(L[i]);
end;
for i:=1 to n do
if i mod 2=0 then x[i]:=sqr(L[i]) else x[i]:=L[i];
writeln(' masiv L');
for i:=1 to n do
write(L[i]:6:2);
writeln; writeln(' masiv X');
for i:=1 to n do
write(X[i]:6:2); writeln;
end.