Паскаль АВС

[TRAMAL]

картинка здесь

[Mad_Cat]

for i:=1 to 10 do
begin
x[i]:=random(100)+1;
write(x[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do begin
y[i,j]:=ln(abs(x[i]*x[j]));
write(y[i,j]:6:3);
end;
writeln;
end;