Pascal: для заданной функции y=10*lnx, где значение х изменяется от 10 до 80 с шагом 10: вычислить сумму полученных значений.

Program pr;
uses crt;

Var sum,x,y:real;

Begin
x:=10;
sum:=0;

While x<=80 do
   Begin
      y:=10*ln(x);
      sum:=sum+y;
 
      x:=x+10;
    end;  

Writeln('Cумма = ', sum);

readln;
end.