Дано 4-х значное число,
найти что больше произведение сотен и десятков
или произведение тысяч и единиц

Var n:integer; 
pro, sum:integer; 
begin 
write(Введите число: ); readln(n); 
pro:=1; sum:=0; 
while n>0 do 
begin 
pro:=pro*(n mod 10); 
sum:=sum+(n mod 10); 
n:=n div 10; 
end; 
writeln(Произведение = , pro); 
writeln(Сумма = , sum); 
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.