самостоятельная: ( 1.даны два числа m n. большее из этих чисел уменьшить на 3, а меньшее удвоить. составьте алгоритм. 2. составьте алгоритм попадания точки в третью четверть окружности.

1.

var m,n:real;
begin
writeln ('Введите 2 числа:');
readln (m,n);
if m>n then
begin
m:=m-3;
n:=n*2;
writeln ('m = ',m,' n = ',n)
end
else
begin
n:=n-3;
m:=m*2;
writeln ('m = ',m,' n = ',n);
end;
end.

А второе я не знаю как решить(