Сопротивление при последовательном соединение равно сумме двух сопротивлений
uses crt;
var x,y,c:real;
begin
write('Введите 1 сопротивление...');
readln (x);
write ('Введите 2 сопротивление...');
readln (y);
c:= x + y;
writeln('Сопротивление ',c);
End.