Чи можуть команди тіла циклу з лісівником виконуватися тільки жодного разу? поясніть свою відповіть. Наведіть приклад.​

// F#
[<EntryPoint>]
let main argv =
    let getRandomCollection n =
        let rand = new System.Random()
        Array.map (fun x -> rand.Next(-10, 10)) [| 1..n |]
    let inputArray = getRandomCollection 15
    printf "source array: %A\n" (inputArray |> Array.toList)
    // First part
    printf "numberToCheckOnEqual: "
    let numberToCheckOnEqual = System.Console.ReadLine() |> System.Int32.Parse
    let indecesEqualsToNumber =
        inputArray
        |> Array.mapi (fun i x -> (x, i))
        |> Array.filter (fun (x, i) -> x = numberToCheckOnEqual)
        |> Array.map (fun (x, i) -> i)
        |> Array.toList
    printf "%d equals to %d: %A\n" (indecesEqualsToNumber |> List.length) numberToCheckOnEqual indecesEqualsToNumber
    // Second part
    printf "a: "
    let a = System.Console.ReadLine() |> System.Int32.Parse
    printf "b: "
    let b = System.Console.ReadLine() |> System.Int32.Parse
    let sum =
        inputArray.[a..b]
        |> Array.sum
    printf "sum of array [%d..%d]: %d\n" a b sum
    // Last part
    let finalArray =
        inputArray
        |> Array.map (fun x -> if x < 0 then x*x else x)
    printf "final array: %A" finalArray
    System.Console.ReadKey true |> ignore
    0

Program programma;
uses crt;
var
b:array[1..100]of integer;
i,n,a,max,k,t:integer;
begin
clrscr;
write('Введите размер массива N = ');
readln(n);

write('Введите число A = ');
readln(a);
for i:=1 to n do
begin
write('b[',i,'] = ');
readln(b[i]);
end;

for i:=1 to n do
begin
if abs(b[i])>a then k:=k+1;
if b[i] mod 5=0 then t:=t+1;
end;

writeln;
writeln('Количество элементов массива, превосходящих по модулю заданное число А = ', k);
writeln('Количество элементов массива, кратных 5  = ', t);

for i:=1 to n do
begin
if b[i]> max then max:=b[i];
end;

for i:=1 to n do
begin
if b[i]= max then begin
write (-max,'  ');  end
else
write(b[i],'  ');
end;

end.