Задание 1
Дано целое число b и натуральное (целое неотрицательное) число m. Вычислить b в степени m.

Задание 2
Рассчитать сумму кубов всех положительных значений и их количество для функции у= 3х^2+2 cos cos x

Составить программу для табулирования функции на промежутке [0;4] с шагом h=0,5.
В отчет включить тексты программ, реакции ЭВМ.

#include <iostream>

using namespace std;

int main()

{

   setlocale(0, "");

   int a{}, b{};

   cout << "a = ";

   cin >> a;

   cout << "b = ";

   cin >> b;

   if (a % b >= 0 && a % b <= 4) cout << "Остаток от деления " << a << " на " << b << " (" << a % b << ") попадает в диапазон 0...4";

   else cout << "Остаток от деления " << a << " на " << b << " (" << a % b << ") не попадает в диапазон 0...4";

   return 0;

}

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
  Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
  Исправляем N:N div 10; на N:= N div 10;
 
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
  N, k: integer;
begin
  readln(N);
  k := 9;
  while N > 10 do
  begin
    if (N mod 10 < k) then k := N mod 10;
    N := N div 10;
  end;
  write(k)
end.