Первоначальное напряжение в цепи равно 200 вольт.

uses crt;
var n,m,v:real;
    k:integer;
begin
v:=200;
write('Введите пpоцент уменьшения m=');
readln(m);
m:=m/100;
write('Введите процент увеличения n=');
readln(n);
n:=n/100;
if m>=n then write('Напряжение никогда не превысит 220 вольт')
else
 begin
  k:=0;
  while v<=220 do
   begin
    v:=v*(1-m);
    v:=v*(1+n);
    k:=k+2;
    if k>360000 then// можно взять и другой предел
     begin
      writeln('Время превышает 100 часов, вычисления остановлены');
      readln;
      exit;
     end;
   end;
  writeln('Напряжение превысит 220 вольт через ',k,' сек. и составит ',v:0:1,' вольт');
 end;
readln
end.

program bbs ;
           uses crt;
var n,m,v:real;
    k:integer;
begin
v:=200;
write('Введите процент уменьшения m=');
readln(m);
m:=m/100;
write('Введите процент увеличения  n=');
readln(n);
n:=n/100;
if m>=n then write('Напряжение никогда не привысит 220 вольт')
else
 begin
  k:=0;
  while v<=220 do
   begin
    v:=v -v*m;
    writeln (v);
    v:=v +v*n;
    writeln (v);
    k:=k+2;
   end;
  writeln('Напряжение привысит 220 вольт через ',k,' сек. и составит ',v:0:1,' вольт');
 end;
readln
end.