Чему равно значение переменной s в результате выполнение программы

Program mas;

Var s,m: integer;

Arry B[1..6] of integer;

Begin

s:=0;

For m:=1 to 6 do

begin

B[m]:=m*m;

If B[m]>=10 then

s:=s+1;
end;

Writeln ('s=',s);

end.

вика3878    2   30.04.2020 16:22    5