Составить программу в turbo pascal для вычесления div и mod двух чисел? !

vara,b: integer; beginreadln(a); readln(b); writeln(a div b); writeln(a mod b); end.

Const   n = 20; var   a: array[1..n] of integer;   i, t, min1, min2: integer; begin   writeln('введите ', n, ' элементов массива');   for i : = 1 to n do read(a[i]);   min1 : = 32767; min2 : = min1;   for i : = 1 to n do   begin       if min2 > a[i] then min2 : = a[i];       if min1 > min2 then begin t : = min1; min1 : = min2; min2 : = t end;   end;   writeln('первый минимум равен ', min1, ', второй минимум равен ', min2) end. тестовое решение: введите 20 элементов массива -5 4 12 8 -7 0 5 9 11 -4 -9 13 0 4 -8 12 -11 7 4 1 первый минимум равен -11, второй минимум равен -9

Const    b=10; var    a: array[1..b] of integer;     i, j, k: integer; begin randomize; write ('pervonachalnii massiv: ');   for i : = 1 to b do  begin    a[i] : = random(100);     write (a[i]: 4);   end;   writeln;   for i : = 1 to b-1 do    for j : = 1 to b-i do    if a[j] > a[j+1] then      begin        k : = a[j];         a[j] : = a[j+1];         a[j+1] : = k;         end;   write ('otsortirovannii massiv: ');   for i : = 1 to b do  begin    write (a[i]: 4);   end;   writeln; readln; end.