Пример алгоритма в котором нарушено свойство конечности

Алгоритмы, при которых условия конечности не может быть достигнуто. например приращение внутри цикла значение переменной, которая по своей сути стремится к нулю и достижением нуля обуславливается его (цикла) завершение.

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.