Какое значение будет выведено на экран в результате выполнения программы? var i,k: integer;

a: array[1..10] of integer;

begin

k:=0;

for i:=1 to 10 do

a[i]:=i;

for i:=1 to 10 do

if trunc(a[i]/3)>=3 then k:=k+1;

label1.caption:=inttostr(k);

end;

Var x,y,z: real;
      t: integer;
begin writeln('введите х и у');
          readln(x,y);
          z:=sqrt(sqr(x)-sqr(y));
          t:=0;
          while (z>0,1) do
          begin t:=t+1;
                    z:=0,98*z;    {если 2% от изменяющегося расстояния до пола;
                   если же имеется ввиду 2% от исходного расстояния,
                   то нужно будет ввести новую переменную
                   или присвоить исходное значение z, например х,
                   то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
                   Формула (оператор) z:=0,98*z;  изменится так:
                   z:=z-x*0,98}
           end;
          writeln('палка упадет через ', t,' мин.');
end.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var W:=ArrGen(ReadInteger('n='),i->2*Sin(i+1)+3*Cos(i+1));
  Write('W: '); W.Println;
  var R:=W.Where(t->t>W.Average).ToArray;
  Write('R: '); R.Println;
  Writeln('Позиция мах: ',R.IndexMax+1)
end.

Пример
n= 13
W: 3.30384888722021 0.570154344009936 -2.6877374736816 -3.47453585320669 -1.0668619929366 2.32167986355325 3.57567996046749 1.54221639182092 -1.90915381517052 -3.6052568090081 -1.98670331913725 1.45841604019661 3.56267441800387
R: 3.30384888722021 0.570154344009936 2.32167986355325 3.57567996046749 1.54221639182092 1.45841604019661 3.56267441800387
Позиция мах: 4