Используя цикл for вычислить сумму всех двухзначных чисел

Var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;

write('сумма двузначных чисел равна ' ,s);
end.