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.
не могу сказать верно или нет, так как не проверял а просто написал в блокнотике
Поделитесь своими знаниями, ответьте на вопрос: