Найти значение всех двузначных чисел от 10 до 99

Спасибо большое

не за что) сейчас поправлю текст

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