Составить программку чисел с поиском количества чисел в спектре от 40

function isPrime(num: integer): boolean;

begin

 result := num gt; 1 ? true : false;

 for var i := 2 to (num div 2) do

   if (num mod i = 0) then

   begin

     result := false;

     break

   end;

end;

begin

 var list := new Listlt;integergt;;

 var (n, i) := (40, 0);

 var count := 0;

 while (n lt; 61) do

 begin

   if isPrime(n) then

   begin

     list.Add(n);

     count += 1;

   end;

   n += 1;

 end;

 list.Println;

 writelnFormat('Count = 0', Count);

end.