Вычислить площадь круга радиус 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