Найти произведение и количество всех целых чисел, расположенных между двумя заданными числами - Turbo Pascal

Формулировка задачи:

Написать программу по заданным условиям: Даны действительные числа x,y. Найти произведение всех целых чисел, расположенных между х и у, а также количество этих чисел. Если, можно, то с блок схемой.

Решение задачи: «Найти произведение и количество всех целых чисел, расположенных между двумя заданными числами»

Листинг программы

program z1;
Uses
Crt;
var 
s,i:integer;
x,y:real;
begin
ClrScr;
write('X - ');
readln(x);
s:=trunc(x);
write('Y - ');
readln(y);
i:=0;
while y-s>1 do
begin
write(s,' ');
inc(i);
inc(s);
end;
writeln('Количество чисел = ',i);
readln; 
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Запрашивает у пользователя два числа: X и Y.
Преобразует эти числа в целочисленный тип (s).
Вычисляет разность между Y и X (i.e., s).
Инициализирует переменную i значением 0.
В цикле while повторяет следующие действия:
- Выводит значение s на экран.
- Увеличивает значение i на 1.
- Увеличивает значение s на 1.
Выводит на экран количество чисел, которые находятся между X и Y (i).
Ждет ввода от пользователя. Примечание: В данном коде используется функция readln для чтения ввода пользователя и функция write для вывода результатов на экран.