Элемент, имеющий эдс ε=1,1 В и внутреннее сопротивление r=1 Ом, замкнут на внешнее сопротивление R=9 Ом. Найти ток I в цепи, падение потенциала

Var a: array [1..8] of integer;
    i: integer;
begin
     for i := 1 to 8 do
         readln(a[i]);
     for  i := 8 downto 1 do
          writeln(a[i]);
end.

Вот так)