===== PascalABC.NET =====

begin

 var x := 12.0;

 while x <= 15.1 do

 begin

   var y := Sin(x) - x ** 2;

   Writeln(x:4:1, y:16:9);

   x += 0.2

 end;

end.