только ! задания в вопросе

О совести
1. Совесть – не повесть: в архив не сдашь.
2. От человека утаишь, а от совести не утаишь.
3. Платье черненько, да совесть беленька.
4. Есть совесть, есть и стыд, а стыда нет, и совести нет.
5. Как ни мудри, а совести не перемудришь.
6. За совесть да за честь – хоть голову снесть.
7. Деньги потеряешь – можно нажить, а совесть потеряешь – беду узнаешь.
8. Без рук, без ног – калека, без совести – полчеловека.
9. Без совести и при большом уме не проживешь.
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.

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