program functionCalculation;
uses Math;
varx: real;
beginx := 0.5;
while x <= 2.1 dobeginwriteln('Y(', x, ') = ', tan(sin(x)) + 2);x := x + 0.2;end;end.
program functionCalculation;
uses Math;
var
x: real;
begin
x := 0.5;
while x <= 2.1 do
begin
writeln('Y(', x, ') = ', tan(sin(x)) + 2);
x := x + 0.2;
end;
end.