Вычислите площадь фигуры ограниченной кривыми заданными r= 3(1-cos(f))

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.

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

Ат ул − бик сизгер һәм акыллы хайван. Син аны яратсаң, ул да сине ярата, тыңлый, үзенчә сәламләп тавыш бирә. Ат бик кирәкле хайван дип уйлыйм мин. Шушы гаҗәеп хайванга һәр шәһәрдә һәйкәл куйдырыр идем. Кешенең шундый ук тугры дусты − эт. Борынгы заманнардан бирле эт кешегә йортын саклаучы булып хезмәт иткән, киек аулаганда зур ярдәм күрсәткән. Сугышлар вакытында этләр ярдәмендә күперләр, танклар шартлатканнар. Хәзерге вакытта этләр төрле объектларны саклыйлар, милиция хезмәтендә торалар, МЧС ның коткаручылар отрядларында хезмәт итәләр, сукыр кешеләргә ярдәм итәләр.