решить задание по математике

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.

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

ТЬ               УХ                  НА                    ШУБ
6+8=14       8-3+6=11        2 х 6=12           11-4+9=16

ДЕС              ДВ                    ИТ                     ХВ
12-9=3          3 х3-1=8           5+6-10=1          16-8-8=0

АТ                ЯТЬ               БРА                  ЕВ
0+9-4=5       3х5=15          15-9=6             14-5-6=3

теперь расположим , чтобы ответ предыдущего был первым числом в следующем примере.

НА (2 * 6 = 12)
ДЕС (12-9=3)
ЯТЬ ( 3 * 5 = 15)
БРА (15 - 9 = 6)
ТЬ (6 + 8 = 14)
ЕВ (14-5-6 = 3)
ДВ ( 3 * 3 - 1 = 8)
УХ ( 8 - 3 + 6 = 11)
ШУБ ( 11 - 4 + 9 = 16)
ХВ ( 16-8-8=0)
АТ ( 0+9-4=5)
ИТ ( 5 + 6 - 10 = 1)

НА ДЕСЯТЬ БРАТЬЕВ ДВУХ ШУБ ХВАТИТ. (варежки)