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

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