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

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.