Найти сумму 1,1+1,2+1,3+1 ... из n слагаемых Надо в системе Паскаля

program zz1;

var a, b:real; / / задаем переменные не целого типа

i, n:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

a:=1; / / задаем начальное значение для первого слагаемого

for i:=1 to n do / / организуем цикл на n повторений

begin

a:=a + 0.1; / / получаем следующее слагаемое

b:=b + a; / / прибавляем его к сумме

end;

write (' суммa 1,1+1,2+1,3+1 ... из n слагаемых = ', b); / / выводим ответ

end.