{на третье задание решение}
var a,i,a1,a2,a3,a4:integer;
begin
readln(a);
a1:=a div 1000;
a2:=(a div 100)mod 10;
a3:=(a div 10)mod 10;
a4:=a mod 10;
if a2-a3>4 then writeln(a1+a2+a3+a4)
else writeln(a1*a2*a3*a4);
end.
{на 4}
var a,i,a1,a2,a3,a4,
b,c:integer;
begin
readln(a);
a1:=a div 1000;
a2:=(a div 100)mod 10;
a3:=(a div 10)mod 10;
a4:=a mod 10;
b:=a1*a2*a3*a4;
c:=a1+a2+a3+a4;
writeln(b,c);
if (b div c>=5)then writeln('произведение цифр больше суммы цифр более,чем в пять раз')
else writeln('произведение цифр деленное на сумму цифр меньше 5');
end.
{на 5 }
var a,a1,a2,a3,a4,a5,a6:integer;
begin
readln(a);
a1:=a div 100000;
a2:=(a div 10000)mod 10;
a3:=(a div 1000)mod 10;
a4:=(a div 100)mod 10;
a5:=(a div 10)mod 10;
a6:=a mod 10;
if a1+a2+a3=a4+a5+a6 then writeln('счастливый')
else writeln('нет');
end.
{на 6}
var a,a1,a2,a3,a4:integer;
begin
readln(a);
a1:=a div 1000;
a2:=(a div 100)mod 10;
a3:=(a div 10)mod 10;
a4:=a mod 10;
if ((a1+a2+a3+a4) mod 7=0)and((a1 mod 7=0)or(a2 mod 7=0)or(a3 mod 7=0)or (a4 mod 7=0)) then writeln('условие выполняется')
else writeln('условие не выполняется');
end.