Ответ ясный и очень прост: иллюстрация
Желаю удачи:)
Вот программный код на паскале:
<span>var
m,n: integer;
begin
read(m,n);
if m > n then
begin
writeln('1 paket tyajelee');
writeln('Ves tyajologo bolee paketa = ',m);
end ;</span>
<span>if m < n
then
begin
writeln('2 paket tyajelee');
writeln('Ves tyajologo bolee paketa = ',n);
end;
readln;
end.</span>
uses crt;
type matr=array[1..20,1..20] of integer;
proc=procedure(m:matr;n:byte);