Безотлагательно!!!Помогите решить задачу (в PascalABC) по информатике.Вот текст задачки:Найти суму

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var n := ReadInteger;

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

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

 s.Println

end.

Пример

38

1116

Пояснения

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

var a,b,c:integer;

begin

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

    while (alt;=150) do

    begin

    b:=b+a;

    a:=a+10;

    end;

    writeln(b);

end.