var
x: <em>real </em>:= 1;
begin
while (x <= 13) do
begin
writeln('y(', x, ') = ', ln(cos(x)));
x += 0.4;
end;
<span>end.</span>
Аня - туристка, Боря - художник, Гриша - футболист, Дина - певица, Вася - танцор
На централилизованные и распределенные.
Ответ: 2