Добрый день. составить условие . ​

1)100%-9%=(100%+x)-y
   y=((100+x)*x)/100
В данной системе уравнений показано, что х - число процентов на которое подорожали акции в среду, а y - число процентов, на которое акции подешевели. Говорится, что подешевели и подорожали на одинаковое число процентов, но x и y - два разных числа. Сейчас объясню на примере.
"Подорожал на 1 процент, а потом подешевел на 1 процент товар. Изначально он стоил 100%, потом подорожал на 1%, стал равным 101%. Потом подешевел на 1%, то есть мы убираем 1% от 101%, значит это будет 101 - 1,01 = 99,9%. Как видите 1 и 1,01 - это два разных числа, как в данном примере x и y." Вернемся к примеру.
Подставляя второе уравнение в первое, получим:
100-9=(100+x)-((100+x)*x)/100
Отсюда находим x:
х=30%
То есть, изначально поднялась цена на 30% = 130%
Потом упала на 30%, то есть 30% от 130% = 39. 130-39=91. Как видно акции стали на 9% дешевле.
2) 7x=1.05y
    y=6.66666666x
    x=y/6.66666666=0.15y
    6x=0.9y
    Следовательно, на 10%

var A,B, minA, maxA, minB, maxB, minn, maxx, t, t1, i:longint;

begin  

readln(A); readln(B);

minA:=(A-1)*50+1; maxA:=A*50;

minB:=(B-1)*70+1; maxB:=B*70;

if (minA>maxB) or (minB>maxA) then writeln(-1) else

begin

if minA<minB then minn:=minB else minn:=minA;

if maxA>maxB then maxx:=maxB else maxx:=maxA;

t:=minn div 60;

t1:=maxx div 60;

if (minn mod 60)<>0 then inc(t);

if (maxx mod 60)<>0 then inc(t1);

for i:=t to t1 do  

write(i, ' ');

writeln();

end;

end.

не могу сказать верно или нет, так как не проверял а просто написал в блокнотике