program fdy;
label 1;
 
function tg (x : real) : real;
begin
tg := sin(x)/cos(x);
end;
 
function h(v:real):real;  {вычисляет tg(33v/2tg(1.2v+2)) }
var t1:real;
begin
t1:=(1.2*v)+2;
t1:=2*tg(t1);
t1:=(33*v)/t1;
 
h:=tg(t1);
end;
 
 
var v,j,r:real;
m:integer;
 
begin
1:write('J: '); readln(j);
if j>7.1 then begin writeln('Ne mojet byti bolishe 7.1'); goto 1;  end;
write('r: '); readln(r);
v:=1.67;
writeln('v:':6,' ','h(v):':12);
writeln('-------------------');
repeat
writeln(v:8:2,' ',h(v):9:2);
 
v:=v+r;
until v>j;
 
readln();
end.