Я новичок в среде: низкоуровневого программирования. Нашел интересную задачку: Имеются два массива восьми битных целых чисел со знаком. Сформировать массив частных от целочисленного деления соответствующих элементов этих массивов. Показать все три массива ее решить. (написать на эмуляторе emu8086)

1)

var

i, n, a: integer;

begin

readln(n);

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 if a mod 10 = 4) and (a > 10) and (a < 100) then

   writeln(a);

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

end.

2)

var

i, n, a, z, min: integer;

begin

readln(n);

z:= 0;

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 z:= z + 1;

 if (i <> 0) and (z = 1) then

   min:= a;

 if (a < min) then min:= a;

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

writeln(min)

end.

1)

var

i, n, a: integer;

begin

readln(n);

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 if a mod 10 = 4) and (a > 10) and (a < 100) then

   writeln(a);

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

end.

2)

var

i, n, a, z, min: integer;

begin

readln(n);

z:= 0;

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 z:= z + 1;

 if (i <> 0) and (z = 1) then

   min:= a;

 if (a < min) then min:= a;

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

writeln(min)

end.