Люди ! вычислить площадь каждого из нескольких квадратов.известно,что сторона первого квадрата x,а сторона последнего у. сторона каждого последующего квадрата больше стороны предыдущего на z.числа x,y,z вводятся с клавиатуры

// 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