Напишите программу, которая вычисляет сумму всех двухзначных чисел(используя цикл while) ​

var

 i, res: integer;

begin

 i := 10;

 while i < 100 do

   begin

     res := res + i;

     i := i + 1;

   end;

 writeln(res);

end.