Найти сумму всех конкретных чисел! Написать программку в паскале, информатика)

program sum;

var
i, summa: integer;

begin
summa := 0;
for i := 1 to 9 do summa := summa + i; // счетчик в пределах от 1 до 9, так как существует всего 9 однозначных чисел (не включаем число 0, так как оно не является естественным числом).
writeln ( Сумма всех конкретных чисел одинакова , summa, . );
end.