Решить (в pascalabc) по информатике.вот текст : «найти суму чисел,не превышающих числа 150,если первое число введено с клавиатуры,а каждое последующее на 10 больше предидущего

begin

 var n := ReadInteger;

 var k := (150 - n) div 10 + 1;

 var s := (2 * n + 10 * (k - 1)) * k div 2;

 s.Println

end.

Числа образуют арифметическую прогрессию с разностью 10 и первым членом, равным введенному числу n. Формула суммы s арифметической прогрессии известна. Число членов прогрессии k находится, как количество точек на отрезке [n;150] с шагом 10.

var a,b,c:integer;

begin

    write('a='); readln(a);

    while (a<=150) do

    begin

    b:=b+a;

    a:=a+10;

    end;

    writeln(b);

end.