var n, j: integer;
    a, b, i, h, Y: real;
begin
  repeat
    Write(' a = '); ReadLn (a);
    Write(' b = '); ReadLn (b);
  until a<b;
  Write (' Число разбиений = ');
  ReadLn (n);
  WriteLn;
  h:=(b-a)/n;
  i:=a;
  j:=0;
  While i<=b do
    begin
    Y:=2*SQR(sin(i))+1;
    WriteLn ('Y = ', Y:6:3);
    i:=i+h;
    j:=j+1;
    end;
  ReadLn;
end.