var x,y:real;
begin
x:=1.0;
while x<=10 do begin
y:=ln(x)+6*x*x*x*cos(x+9);
writeln(x,' ',y);
x:=x+1;
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.