Найти сумму 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.