Составить программу на языке pascal! все . найти произведение и количество всех целых чисел, расположенных между двумя заданными числами + блок схема. заранее )

Если нужно сделать 1 или несколько  альбомных листов в тексте, тогда нужно:   выделить мышкой текст на нужной странице (или на нескольких); выполнить команду меню «файл» -> «параметры страницы»; на вкладке «поля» выбрать альбомную ориентацию; в списке «применить» выбрать «к выделенному тексту». ещё одним способом изменения ориентации одного или нескольких листов на альбомную в середине файла может стать создание новых разделов в нужных местах документа. разделы следующим образом: необходимо установить курсор в самом конце страницы, после которой должен следовать альбомный лист; выполнить команду меню «вставка» -> «разрыв»; в открывшемся окне выбрать новый раздел «со следующей страницы» -> «ок»; дальше «файл» -> «параметры страницы» -> «поля» -> ориентация «альбомная».

#define _USE_MATH_DEFINES

#include <iostream>

#include <iomanip>

using namespace std;

double area, circumference;

void circle(double);

int main()  {

    locale::global(locale(""));

    cout << " Введите радиус:    ";

    double radius;

    cin >> radius;

    circle(radius);

    streamsize accuracy = 8;

    cout << " Длина окружности:  " << setprecision(accuracy) << fixed << circumference << endl

         << " Площадь круга:     " << area << endl;

    cin.get(); cin.get();

    return 0;

}

void circle(double _radius)  {

    circumference = 2 * M_PI * _radius;

    area = M_PI * _radius * _radius;

}

Вроде бы так, если я тебе дай лучший ответ =) [с новым годом]