Напишите программу которая вводит натуральные числа а и б и выводит все простые числа в диапазоне от а до б. в паскале

//pascalabc.net 3.1 сборка 1219 (от самих создателей) function isprime(x: integer): boolean; begin       var sqx : = round(sqrt(x));       var i : = 2;       while (i < = sqx) and (x mod i < > 0) do               i += 1;       result : = i > sqx; end; begin       range(readinteger('a ='), readinteger('b ='(isprime).print; end.

#include < iostream> #include < map> #include < vector> using namespace std; map< pair< int, int> , int> saved_rec; map< int, pair< int, int> > path; int max_cost(const vector< int> & cost, int day, int length) {       if (day + 1 < length)             length = day + 1;       if (saved_rec[make_pair(day, length)] ! = 0)             return saved_rec[make_pair(day, length)];       int tmp_cost, max = cost[day] * length, max_i = length;       if (day ! = 0)             for (int i = 0; i < = length; ++i)             {                                     tmp_cost = max_cost(cost, day - 1, length-i)                         + cost[day] * i;                   if (tmp_cost > max)                   {                         max = tmp_cost;                         max_i = i;                   }             }       saved_rec[make_pair(day, length)] = max;       if (max_i ! = 0)             path[max] = make_pair(day, max_i);       return max; } int main() {       vector< int> cost = { 6, 2, 5, 4, 5, 3, 3, 4};       int last_day_num = cost.size() - 1,             total_length = cost.             max;             max = max_cost(cost, last_day_num, total_length);       cout < < "max profit: " < < max < < endl;       pair< int, int> day_count;       int sm = 0;             do       {             day_count = path[max];             cout < < "day: " < < day_count.first < < ", length: " < < day_count.second < < endl;             max -= cost[day_count.first] * day_count.second;       } while (max ! = 0); }