Написать скрипты на PowerShell (.ps1) 1.Нахожденияе числа Фибоначчи по номеру 2.Вывод измененных файлов каталога

$n = read-host "Введите номер числа (от 3 и более)"
if($n -le 2){
    write-host число должно быть положительным и больше 2 -for red
    sleep 3
    break
}
for ($b,$f1,$f2,$i=0,1,2,4; $i -le $n; $i++) { 
    [bigint]$b=$f1 
    [bigint]$f1=$f2
    [bigint]$f2=$b+$f1
} 
write-output "Fib($n)=$f2"

$path = Read-Host 'enter Path'
$year = Read-Host 'enter Year'
 
cls; dir $path | ? {$_.LastWriteTime.Year -eq $year}

using namespace System.Windows.Media
 
Add-Type -AssemblyName WindowsBase
 
function fib {
  [OutputType([Double])]
  param(
    [Parameter(Mandatory)]
    [ValidateScript({$_ -ge 1})]
    [UInt16]$n # максимально допустимое значение 65535
  )
  
  process {
    $m1, $m2 = [Matrix]::new(1,0,0,1,0,0), [Matrix]::new(1,1,1,0,0,0)
    for ($i = 1; $i -lt $n; $i++) { $m1 *= $m2 }
    $m1.M11
  }
}

$nn = 1400
(1..10 |%{ (Measure-Command {$f1,$f2,$b = 1,2,0; $n=$nn; for($i=3; $i -le $n; $i++){$b=$f1; $f1=$f2; $f2=$b+$f1};$f2}).TotalMilliseconds}|Measure-Object -Average).Average
''
(1..10 |% {(Measure-Command {$k = $nn+1; $arr=new-object 'bigint[]' ($k+1); for($i=0;$i -le $k;$i++){if ($i -lt 2){$arr[$i] = $i}else{$arr[$i]=$arr[$i-1]+$arr[$i-2]}}; $arr[-1]}).TotalMilliseconds}|Measure-Object -Average).Average
''
(1..10 |%{ (Measure-Command {fib ($nn+1)}).TotalMilliseconds}|Measure-Object -Average).Average

$nn = 1400
(1..10 |%{ (Measure-Command {$f1,$f2,$b = 1,2,0; $n=$nn; for($i=3; $i -le $n; $i++){$b=$f1; $f1=$f2; $f2=$b+$f1};$f2}).TotalMilliseconds}|Measure-Object -Average).Average
''
(1..10 |% {(Measure-Command {$k = $nn+1; $arr=new-object 'double[]' ($k+1); for($i=0;$i -le $k;$i++){if ($i -lt 2){$arr[$i] = $i}else{$arr[$i]=$arr[$i-1]+$arr[$i-2]}}; $arr[-1]}).TotalMilliseconds}|Measure-Object -Average).Average
''
(1..10 |%{ (Measure-Command {fib ($nn+1)}).TotalMilliseconds}|Measure-Object -Average).Average

using namespace System.IO
using namespace System.Text
 
function Invoke-BrainFuck {
  [CmdletBinding(DefaultParameterSetName='Path')]
  param(
    [Parameter(Mandatory, ParameterSetName='Path', Position=0)]
    [ValidateScript({($script:src = Get-Item $_ -ea 0
    ) -and $src.Extension -cmatch '^.bf?$'})]
    [ValidateNotNullOrEmpty()]
    [String]$Path,
 
    [Parameter(Mandatory, ParameterSetName='Code', Position=0)]
    [ValidateNotNullOrEmpty()]
    [String]$Code
  )
 
  process {
    $x, $ops = '$i=0;$b=[Byte[]]::new($c.Length);', ((,$null*43)+'$b[$i]++'+
    '$b[$i]=$host.UI.ReadLine()'+'$b[$i]--'+'Write-Host $([Char]$b[$i]) -N'+
    (,$null*13)+'$i--'+$null+'$i++'+(,$null*28)+'while($b[$i]){'+$null+'}')
    .([ScriptBlock]::Create("$x$(($c = switch ($PSCmdlet.ParameterSetName) {
      'Path' { [File]::ReadAllBytes($src.FullName) }
      'Code' { [Encoding]::ASCII.GetBytes($Code)   }
    }).ForEach{"$($ops[$_]);"})"))
  }
}

# собственно brainfuck
$fib = @'
>++++++++++>+>+[
   [+++++[>++++++++<-]>.<++++++[>--------<-]+<<<]>.>>[
      [-]<[>+<-]>>[<<+>+>-]<[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-
          [>+<-[>+<-[>+<-[>[-]>+>+<<<-[>+<-]]]]]]]]]]]+>>>
   ]<<<
]
'@
 
# исполняем код
Invoke-BrainFuck -Code $fib
# или с предварительным сохранением
# Out-File fibonacci.b -InputObject $fib -Encoding ASCII
# Invoke-BrainFuck fibonacci.b