[Moonlight]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var x1,x2,h,x,y:real;
begin

write('x1=');
readln(x1);
write(' x2=');
readln(x2);
write('h=');
readln(h);
x:=x1;
while x<=x2 do
 begin
  y:= x*cos(x)/sin(x);

      x:=x+h;
   end;

writeln(x  ,y);
readln
end.