Какое значение примет переменная а после выполнения фрагмента программы?

a:=1;
for i:=2 to 5 do a:=a*10;​

1000

Цикл от 2 до 5 включительно, то есть a:=a*10 будет выполнятся 4 раза. i изначально равна 1, а потом её 4 раза умножают на 10. 1*10^4 = 1000.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.