Можно поставить "вечный цикл" с задержкой и перерисовывать ему глаза раз в секунду. Самый простой способ, который пришёл в голову.
Исходник в приложении к ответу.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите границы интервала: '); Read(a,b);
if a>b then Swap(a,b); // страховка от злобных буратинок
var k:=Range(a,b).Where(m->sqr(sin(m))+cos(m*m)<0).Count;
Writeln('На интервале найдено отрицательных значений- ',k)
end.
<u>Пример</u>
Введите границы интервала: -3 10
На интервале найдено отрицательных значений- 4
Смотри, первым делом нам нужно узнать, какие 2 из этих 4 пунктов самые удаленные по отношению друг к другу. Дла этого расписываем пути из одной точки в другую для всех точек(абцд)
C-A=7
C-D=10
C-B=16
A-C=7
A-B=9
и т.д
Находим 2 самых удаленных друг от друга пункта
это
C-B
кратчайших путь из точки C в точку B-это CAB (16)
ответ 3)16
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var s:=ReadlnString('n=');
s:=('0'*(4-s.Length)+s);
Writeln(Ord(s[:3].ToInteger=s[3:].Inverse.ToInteger));
end.