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

program sum;

vari, summa: integer;

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