// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y,z):=ReadReal3('Введите x, y, z:');
repeat
Writeln(x:10:5,x*x:20:5);
x+=z;
until x>y+0.0001
end.
Пример
Введите x, y, z: 2.6 8.35 1.25
2.60000 6.76000
3.85000 14.82250
5.10000 26.01000
6.35000 40.32250
7.60000 57.76000