uses crt;
    var mas:array[1..10] of integer;
        i,p,sum: integer;
        q: char;
    begin
     repeat;

     clrscr;

     sum:=0;
     p:=0;

     randomize;

     for i:=1 to 10 do
     mas[i]:=random(10000);  // заполняем массив

     for i:=1 to 10 do
     write(mas[i],' ');  // выводи массив

     mas[5]:=0;
     mas[6]:=0;     // обнуляем 5 и 6 элемент

     sum:=0;

     for i:=1 to 10 do

     begin

     if (mas[i]>99) and (mas[i]<1000) then // если трехзначное то
     begin
     p:=p+1;                          //   увеличиваем счетчик чисел
     sum:=sum+mas[i];  //  увеличиваем сумму на только что полученное число
     end;

     end;

     writeln;

     writeln(sum,' ',p); // выводим результат: сумма - количество трехзнаков

     q:=readkey;

     until q='q';

     end.

var
a:real;
x,y : array[1..5] of real;
i : integer;

begin
for i:=1 to 5 do
begin
writeln('Vvedite x',i);
readln(x[i]);
a:=ln(x[i]);
y[i]:=x[i]+a;
end;

writeln('    x     f(x)   ln(x)');
for i:=1 to 5 do
writeln(x[i]:7:3,y[i]:7:3,(ln(x[i])):7:3);

readln;
end.