===== PascalABC.NET =====
begin
var n := Trunc((1 - (-1)) / 0.2);
for var i := 0 to n do
var x := -1 + 0.2 * i;
Write(x:4:1);
if x < 0.2 then
Writeln(3 * (Sqr(x + 8) - 4):16:9)
else
Writeln(8 + Sin(x) / x:16:9);
end
end.
===== PascalABC.NET =====
begin
var n := Trunc((1 - (-1)) / 0.2);
for var i := 0 to n do
begin
var x := -1 + 0.2 * i;
Write(x:4:1);
if x < 0.2 then
Writeln(3 * (Sqr(x + 8) - 4):16:9)
else
Writeln(8 + Sin(x) / x:16:9);
end
end.