дается два числа, которые значат сопротивление 2 резисторов. За запросом,как соединенны резисторы, вывести сопротивление

var
    r1, r2, rs: real;
    t: char;
begin
    write('сопротивления? ');
    readln(r1, r2);
    write('тип соеденения (1 - параллельно, 2 - последовательно)? ');
    readln(t);
    case t of
        '1': rs := r1 * r2 / (r1 + r2);
        '2': rs := r1 + r2;
    end;
    writeln('суммарное сопротивление: ', rs:0:2);
end.

Powershell

While ($true) {
$ResistanceA = Read-Host -Prompt "Введите сопротивление первого резистора (Ом, целое) "
if ($ResistanceA -notmatch '^\d+$') {
Write-Host -ForegroundColor Yellow "Ошибка, [$ResistanceA] не является целым числом"
} else {
break
}
}

While ($true) {
$ResistanceB = Read-Host -Prompt "Введите сопротивление второго резистора (Ом, целое) "
if ($ResistanceB -notmatch '^\d+$') {
Write-Host -ForegroundColor Yellow "Ошибка, [$ResistanceB] не является целым числом"
} else {
break
}
}

$TypeBoxTitle = "Выберите тип соединения сопротивления"
$TypeBoxMessage = $TypeBoxTitle
$TypeBoxOptionParallel = New-Object System.Management.Automation.Host.ChoiceDescription "(&1) Параллельное", "Параллельное соединение"

$TypeBoxOptionSerial = New-Object System.Management.Automation.Host.ChoiceDescription "(&2) Последовательное", "Последовательное соединение"

$TypeBoxOptions = [System.Management.Automation.Host.ChoiceDescription[]]($TypeBoxOptionParallel, $TypeBoxOptionSerial)
$TypeChoice = $host.ui.PromptForChoice($TypeBoxTitle, $TypeBoxMessage, $TypeBoxOptions, 0)

if ($TypeChoice -eq 0) {
$ResistanceResult = ([int]$ResistanceA * [int]$ResistanceB) / ([int]$ResistanceA + [int]$ResistanceB)
} else {
$ResistanceResult = ([int]$ResistanceA + [int]$ResistanceB)
}

Write-Host "Результирующее сопротивление $($ResistanceResult) Ом"