Найти значение всех двухзначных чисел от 10 до 99 программирование. информатика.

Program p1;
var   i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do 
begin  
a:=a+i; 
end; 
writeln(a); 
readln;
end.