Написать программу вычисления удельного сопротивления проводника по формуле r=pl/s параметр l заранее не известен ♥♥

Program sopr;
 var R,L,p,S: real;
begin
 write('p='); readln(p);
 write('S='); readln(S);
 write('L='); readln(L);
 R:=p*L/S;
 write('удельное сопротивление равно ',R)
end.