Вычислите сумму чисел из промежутка с шагом 0,5. в паскаль

Var sum, x:real; 
begin 
x:=27; 
while x<=94 do begin 
sum:=sum+x; 
x:=x+0.5; 
end; 
writeln(sum); 
end.