Составьте программу для вычисления математических выражений, одновременно анализируя использование функций input() и рrіntо
В практических заданиях.
1) 352•985•25•3
2) 362 + 1206 + 215554 + 6957 +628


​
мне очень нужно

var

  n:integer;

begin

  write('n = ');

  readln(n);

  if (n mod 10) > ((n div 100) mod 10) then

    writeln('Последняя больше второй')

  else

    if (n mod 10) < ((n div 100) mod 10) then

      writeln('Вторая больше последней')

    else

      writeln('Они равны');

  readln;

end.

// Вторая программа

var

  n, Pr:integer;

begin

  write('n = ');

  readln(n);

  Pr := 1;

  while n > 0 do

  begin

    Pr := Pr * (n mod 10);

    n := n div 10;

  end;

  writeln('Pr = ', Pr);

  if Pr mod 5 = 0 then

    writeln('Кратно')

  else

    writeln('Некратно');

  readln;

end.

var

  a:array[1..100, 1..100] of integer;

  n, m,  count, i, j, max:integer;

begin

  randomize;

  write('m = ');

  readln(m);

  write('n = ');

  readln(n);

  writeln('Исходный массив :');

  for i := 1 to m do

  begin

    for j := 1 to n do

    begin

      a[i, j] := random(11);

      write(a[i, j], ' ');

    end;

    writeln;

  end;

  max := a[1, 1];

  for i := 1 to m do

    for j := 1 to n do

      if a[i, j] > max then

        max := a[i, j];

  writeln('Max = ', max);

  for i := 1 to m do

  begin

    count := 0;

    for j := 1 to n do

      if a[i, j] = max then

        inc(count);

    writeln('В строке', i ,' находится', count, ' максимальных элементов');

  end;

  readln;

end.