Не понятно про "Жесткий" цикл. Но как вариант:
var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.
На выходе:
-24
-12
12
24
36
48
Главное меню представляет собой управляющий центр операционной системы<em>Windows</em> и содержит упорядоченный набор команд работы с программными приложениями. Основные элементы Главного меню носят названия пунктов икоманд. Внутри пунктов могут находиться названия папок, программных приложений и документов. Главное меню, по своей сути, является аналогом файловой системы, представленной в виде списка файлов запуска, представленных названиями программ и приложений. <span>Открытие Главного меню можно произвести щелчком по кнопке Пуск, находящейся на Панели задач <em>Windows</em>. Выбор нужного пункта производится путём перемещения указателя мыши по названиям пунктов Главного меню. Маленький треугольник ► справа от пунктов Главного меню указывает, что этот пункт содержит <em>вложенное меню</em>, представляющее собой набор других пунктов и команд <em>Windows</em>. Чтобы открыть вложенное меню, достаточно на некоторое время задержать на строке с названием пункта указатель или щёлкнуть по названию левой кнопкой мыши</span>Последовательно открыв несколько вложенных меню, можно получить доступ к нужному программному приложению или документу. Если же меню было открыто по ошибке, следует переместить указатель мыши в предыдущее меню и заново выбрать правильный пункт.<span>Для закрытия Главного меню достаточно просто произвести щелчок за его пределами, то есть установив указатель мыши на свободном от Главного меню пространстве Рабочего стола.</span>
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (max, min, k) := (-100000, 100000, 0);
ReadSeqIntegerWhile(t -> t <> 0)
.Foreach(t ->
begin
if t > max then max := t;
if t < min then min := t;
if t mod 10 = 7 then Inc(k)
end);
Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)
end.
