даны два числа m,n.Большее из этих чисел уменьшить на 3, а меньшее удвоить.Составить алгоритм

varm,n:integer;beginwriteln('m=');readln(m);writeln('n=');readln(n);if m>n then begin m:=m-3; n:=n*2; end elseif m<n then begin n:=n-3; m:=m*2; end;writeln('m=',m,' n=',n)end.