4. ps

Clear-Host
[int] $szam=Read-Host "Hányadik sorszámú Tribonacci-számot írjam ki?"

switch($szam)
{
1 { Write-Host "$a. elem: 1"; break}
2 { }
3 { }

default
{
    $e=1
    $k=1
    $u=2
    for($i=1;$i -le $a-3;$i++)
        {
        $trib=$e+$k+$u
        $e=$k
        $k=$u
        $u=$trib
        }
}
}