Написать код в паскале
ни как не могу понять что нужно вписывать
начала когда есть,а вот что делать дальше не пойму
var a, b , h ,r: real;
begin
a: = pi / 3;
b: = 2*pi / 3;
h: = ( 2*pi/3 - pi / 3 ) / 20;
r: =a;
writeln ('a=', a: 0 : 3, ' b=' , b: 0: 3 );
while (r< =b) do ;
begin