Определите, что будет напечатано в результате выполнения следующего алгоритма var k,m,i: integer;
mas:array[1..10] of integer;
begin
mas[1]:=12;
mas[2]:=43;
mas[3]:=48;
mas[4]:=56;
mas[5]:=76;
mas[6]:=73;
mas[7]:=36;
mas[8]:=96;
mas[9]:=69;
mas[10]:=25;
k:=0;
m1:=mas[1] div 10 - mas[1] mod 10;
for i:=2 to 10 do begin
m2:=mas[i] div 10 - mas[i] mod 10;
if m1 > m2 then begin
m1:=m2; k:=i;
end;
end;
write(k);
end.