ЛЮДИ Пожалуйста посчитайте ПОЖАЛУЙСТА!!!Вычислить площадь каждого из нескольких квадратов.Известно,что сторона первого квадрата x,а сторона последнего у. Сторона каждого последующего квадрата больше стороны предыдущего на z.Числа x,y,z вводятся с клавиатуры

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