Найти значение всех двузначных чисел от 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.