Вычислить площадь круга радиус R которого меняется от А до В с шагом H. сделать задачу паскалем

var a,b,h,r:real; i:integer; begin write('a, b, h: '); readln(a,b,h); for i:=0 to round((b-a)/h) do  begin  r:=a+i*h;  writeln(r:4:1,pi*r*r:8:3);  end; end. Пример: a, b, h: 2 3 0.2  2.0  12.566  2.2  15.205  2.4  18.096  2.6  21.237  2.8  24.630  3.0  28.274