LRSM

Ответ:

• var x, y: real;
• begin
• x := 2;
• while x <= 6 do
• begin
• writeln('x=',x,' y=',(x*cos(1/x)+2));
• x := x + 0.5;
• end;
• end.

Пример работы: