Система из двух последовательных сопротивлений 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