program krug;
uses crt;
var x, xn,xk,y,h: real;
begin;
clrscr;
writeln ('xn='); read (xn);writeln ('xk='); read (xk);
writeln ('h=',h);
x:=xn;
while x<=xk do begin
y:=sin (x);
writeln ('y=:5:2,',x:5:2);
x:=x+n;
end;
readkey;
end.