uses crt;
var i,n,summa,a:integer;    
     m:array [1..1000] of integer;
begin
clrscr;
writeln('Введите размер массива');
readln(n);
for i:=1 to n do
m[i]:=i;

if n<99 then a:=n else a:=99;
for i:=10 to a do
begin
  if (i div 10)+(i mod 10) < 10 then   
    begin   
      summa:=summa+i;    
    end;
end;

writeln(summa);
readkey;
end.

const  n=30;
var
  x,i,s:integer;
  a:array[1..n]of integer;
begin
writeln('Массив:');
for i:=1 to n do
  begin
  x:=random(1000);
  a[i]:=x;
  write(x,' ');
  if (x>10) and (x<100) and ((x div 10)+(x mod 10)<10) then s:=s+a[i];
  end; 
writeln;
writeln('Ответ: ',s); 
end.