Написать программу в паскале

Три сопротивления R1, R2 и R3 соединены параллельно. Найти сопротивление соединения R0.

Program begin_20;

var r1, r2, r3, r0:real;

begin writeln ('введите сопротивление R1') ;

readln (r1) ;

writeln ('введите сопротивление R2') ;

readln (r2) ;

writeln ('введите сопротивление R3') ;

readln (r3) ;

r0:=1 / (1/r1+1/r2+1/r3) ;

writeln ('общее сопротивление R0', r0:4:4) ;

Readln;

End.