1) var a,b,d,e,c,k,l,f:integer;
begin
read(a);
b:=a mod 10;
c:=a div 1000;
k:=a mod 100;
e:=k div 10;
l:=a div 100;
d:=l mod 10;
f:=b*c*e*d;
write(f);
End.
2)зачерпнуть 8л, вылить 3 л в ведро ёмкостью 3л, вылить из ведра 3 л, пережить из первого 3л, вылить 3 л, долить оставшиеся 2 л, наполнить первое ведро, долить литр во второе ведро. и того в 1 - 7л, во втором - 3.