Опишите последовательность действий. винни-пух разлил 60 л. меда в 9 горшочков двух видов-- вместимостью 4 и 8 л. сколько горшочков каждого вида занял винни-пух? реши , запооняя таблицу. 4-литровые горшочки 8-литровые горшочки всего меда. , .

Каждые 2 горшочка вместимостью 4 литра можно заменить одним горшочком вместимостью 8 литров. Если все горшочки имели вместимость 4 литра, то их понадобилось бы 60/4 = 15. Для дальнейших расчетов можно заполнить таблицу, показанную в приложенном файле..

Для начала складываем 4+8 и получаем 12 или по 5 горшков. 
А потом меняем большие горшки на маленькие. 
Один большой равен двум маленьким и наоборот два маленьких равны одному большому
Объем-1 столбик(4, 1, 3, 5, 7, 9, 11, 13);2 столбик(8, 7, 6, 5, 4, 3, 2, 1)Итог(60, 60, 60, 60, 60, 60, 60, 60).Ну у нас так было.

Uses crt;
label goback;
var
a,b,c,d,e,f:integer;
begin
goback:
write('Введите число: ');read(a);
if (a<1000) or (a>9999) then 
  begin
    writeln('Введите четырехзначное число.');
    goto goback;
end;
b:=a div 1000;
c:=a div 100 mod 10;
d:=a div 10 mod 10;
if (b=c) and (c=d) then  begin    writeln('Первые 3 цифры равны.');  end;
if (b=c) and (c>d) then  begin    writeln(d,' - Наименьшая цифра из первых 3 цифр.');end;
if (d=b) and (b>c) then  begin    writeln(c,' - Наименьшая цифра из первых 3 цифр.');end;
if (c=d) and (d>b) then  begin    writeln(b,' - Наименьшая цифра из первых 3 цифр.');end;
if (b>c) and (c>d) and (b>d) then  begin    writeln(d,' - Наименьшая цифра из первых 3 цифр.');end;
if (c>d) and (d>b) and (c>b) then  begin    writeln(b,' - Наименьшая цифра из первых 3 цифр.');end;
if (b>d) and (d>c) and (b>c) then  begin    writeln(c,' - Наименьшая цифра из первых 3 цифр.');end;
if (b mod 2 = 0) then  begin    writeln('Первая цифра четная');  end;if (c mod 2 = 0) then  begin    writeln('Вторая цифра четная');end;
if (b mod 2 = 0) and (c mod 2 = 0) then  begin    writeln('И первая и вторая цифра четная');  end;
if (b mod 2 = 1) and (c mod 2 = 1) then  begin    writeln('И первая и вторая цифра не четная');end;
End.

Program fofgogjoj;
 var   
arr: array[1..1000] of byte;   
max_num, min_num: byte;   
i: byte;   
n,p:integer; 
begin   
randomize; 
Wriiteln('Введите число n');
Readln(n);   
for i := 1 to n do begin       
arr[i] := random(100);       
 Write (arr[i]:3);   
end;       
 max_num := arr[1];    
for i := 2 to n do       
 if arr[i] > max_num then
begin                     
max_num := arr[i];       
end;    
Writeln;   
Writeln ('Max = ',max_num);          
min_num := arr[1];    
for i := 2 to n do       
if arr[i] < min_num then
begin                      
min_num := arr[i];       
end;       
Writeln;   
Writeln ('Min = ',min_num);       
P:=max_num*min_num;   
Writeln('Произведение равно:',p); 
end.