Составте пожалуйста программу вычисления суммы всех двузначных чисел.

Program summ;   var    i: byte;     sum: integer; begin i := 10; while i < 99 do begin sum := sum + i; inc(i); end; write('Сумма всех 2-значных чисел: ',sum); end.