Program soprotivlenie; Rs это общее
var R1,R2,R3,Rs:integer;
begin
Rs:=0;
writeln('ввести сопротивления в резисторах');
readln(R1,R2,R3);
Rs:=R1+R2+R3;
writeln('общее сопротивление равно ',Rs)
end.
как то так. для проверки вычисли на бумаге а потом в программе.