// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=-5.0;
Writeln(' x x*x');
repeat
Writeln(x:4:1,x*x:10:2);
x+=0.5
until x>5
end.
Результат
x x*x
-5.0 25.00
-4.5 20.25
-4.0 16.00
-3.5 12.25
-3.0 9.00
-2.5 6.25
-2.0 4.00
-1.5 2.25
-1.0 1.00
-0.5 0.25
0.0 0.00
0.5 0.25
1.0 1.00
1.5 2.25
2.0 4.00
2.5 6.25
3.0 9.00
3.5 12.25
4.0 16.00
4.5 20.25
5.0 25.00