Дан массив из 45 целых чисел от 1 до 1000. вычислить сумму всех двузначных элементов массива и произведение однозначных элементов.

Var
  a:array [0..44] of integer;
  sum: integer;
  pr: integer;
  st: string;
begin
  sum:=0;
  pr:=1;
  for i:=0 to 44 do
  begin
     Readln('a[',i,']=',a[i]);
     str(a[i],st);
     if length(st)=2 then
       sum:=sum+a[i];
     if length(st)=1 then
      pr :=pr*a[i];
  end;
  Writeln('Сумма: ',sum,' Произведение: ',pr);
  Readln
end.