program zad2;
uses crt;
var
    x,y,a,b,h:real;
begin
  clrscr;
  write ('a=');
  read (a);
  write ('b=');
  read (b);
  write ('h=');
   read (h);
  x:=a;
  writeln ('_________________');
  writeln ('|  x    |   y    |');
 repeat
     begin
     y:=2*sin(2*x)+1;
     write('| x=', x:4:1); write ('|'); write(' y=', y:4:1); writeln('|');
     writeln('-----------------');
     x:=x+h;
     end;
 until x>b;
 repeat until keypressed;
end.