Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление всей цепи. (программа на Паскаль)

program cube;
uses crt;
var
R1,R2,R3:integer;
begin
writeln('please enter resistance R1');
readln(R1);
writeln('please enter resistance R2');
readln(R2);
writeln('please enter resistance R3');
readln(R3);
writeln;
writeln('total resistance ', 1/((1/R1)+(1/R2)+(1/R3)));
end.