program TangentFunction;
varx, result: real;
beginfor x := 0 to 1.12 step 0.21 dobeginresult := tan(x);writeln('tg(', x:4:2, ') = ', result:4:2);end;
end.
program TangentFunction;
var
x, result: real;
begin
for x := 0 to 1.12 step 0.21 do
begin
result := tan(x);
writeln('tg(', x:4:2, ') = ', result:4:2);
end;
end.