program TangentFunction;
vax, result: real;
begifor x := 0 to 1.12 step 0.21 dbegiresult := tan(x)writeln('tg(', x:4:2, ') = ', result:4:2)end;
end.
program TangentFunction;
va
x, result: real;
begi
for x := 0 to 1.12 step 0.21 d
begi
result := tan(x)
writeln('tg(', x:4:2, ') = ', result:4:2)
end;
end.