Var r, i: integer;
begin
write('r = ');
readln(r);
for i := r downto 1 do
if Tan(i) < 0 then
break;
write(i);
<span>end.</span>
For A = 1 To 10
If A mod 2 <> 0 Then
Print A * A
End if
Next A
program xyz;
var x,y,z,a,b,c:real;
begin
readln(x,y,z);
x:=(sqrt(a)+b)/2*a;
y:=sqrt(abs((3*x+4)/(1-2*x)));
z:=abs(sqr(Cos(x)))/(Ln(1+y));
writeln(z);
end.