Система из двух последовательных сопротивлений r1 и r2 соединена параллельно с сопротивлением r3. к цепи приложено напряжение v. найти силу тока в каждом из сопротивлений. (в паскале)

Var
  r1,r2,r3,U:real;
begin
  Write('Введите величины сопротивлений R1, R2, R3: ');
  Read(r1,r2,r3);
  Write('Введите величину напряжения V: ');
  Read(U);
  Writeln('Ток через R1 и R2 равен ',U/(r1+r2));
  Writeln('Ток через R3 равен ',U/r3)
end.

Пример
Введите величины сопротивлений R1, R2, R3: 130 70 215
Введите величину напряжения V: 220
Ток через R1 и R2 равен 1.1
Ток через R3 равен 1.02325581395349