Для произвольных значений аргументов вычислить значение функциипрограмма на языке паскаль

уже было такое.. иногда пользуйтесь поиском чтоль.

1) полностью наполнить 5 литровый бидон  2)из 5 литровой в 3х литровую переливаем масло( в 5 литровой остаётся 2)  3)3х литровую в общую ёмкость  4) из 5 литровой в 3х литровую переливаем оставшиеся 2 литра из 5 литровой  5) доверху наполняем 5 литровую  6) из 5 литровой доверху наполняем 3х литровую  7) из трёхлитровой переливаем всё в бидон, в 5ти литровой осталось 4

пишем бидоны(их кол-во), затем проделываем вот что:   8 5 3  8 0 0  3 5 0  3 2 3  6 2 0  6 0 2  1 5 2  1 4 3  4 4 0  ну то есть разливали масло по каждому бидону, пока не получится результат

или так

1. из 8 в 3 (там останется 5)  2. из 3 в 5  3. из 8 в 3 (там останется 2)  4. из 3 в 5 долить 2 (остается 1)  5. из 5 в 8 (там стало 7)  6. из 3 в 5  7. из 8 в 3 (там стало 4)  8. из 3 в 5 (там тоже стало 4)

uses crt; type matr=array[1..20,1..20] of integer; proc=procedure(m: matr; n: byte);

procedure glav(m: matr; n: byte); var i: byte; beginwriteln('главная диагональ  : '); for i: =1 to n dowrite(m[i,i]: 3,' '); writeln; writeln; end; procedure vyvod(m: matr; gl: proc; n: byte); begingl(m,n); end; var a: matr; n,i,j: byte; beginclrscr; randomize; repeatwrite('размер матрицы до 20 n='); readln(n); until n in [1..20]; writeln('исходная матрица: '); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(40)+10; write(a[i,j]: 3,' '); end; writeln; end; writeln; vyvod(a,glav,n); readlnend.