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

begin

 var D := 0.7;

 Writeln(' i           φ        ω        ω²');

 for var i := 0 to 10 do

 begin

   var fi := Pi * i / 20;

   var om := D * fi;

   Writeln(i + 1:2, fi:12:7, om: 12:7, Sqr(om): 12:7)

 end;

end.