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

Program pr;uses crt;Var sum,x,y:real;Beginx:=10;sum:=0;While x<=80 do   Begin      y:=10*ln(x);      sum:=sum+y;       x:=x+10;    end;  Writeln('Cумма = ', sum);readln;end.