1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC

program task1; var  number, max, min, ost, digit :integer; begin   readln(number);  max:= 0; min:= 9;  while number > 0 do  begin    digit:= number mod 10;    if digit < min then      min:= digit;    if digit > max then      max:= digit;    number:= number div 10;  end;  writeln('Минимальная цифра: ',min);  writeln('Максимальная цифра: ',max); end. program task2; var  number, digit, sum, p :integer; begin   readln(number);  sum:= 0; p:= 1;  while number > 0 do  begin    digit:= number mod 10;    sum:= sum + digit;    p:= p * digit;    number:= number div 10;  end;  sum:= sum * 3;  if sum > p then    writeln('Утроенная сумма больше произведения');  if p > sum then    writeln('Произведение больше утроенного произведения'); end.