Составить программу паскаль из 2-х чисел уменьшить на 8 а меньшее число увеличить в 2 раза

Program Test;

Var min, max, tmp: real;

Begin

Write ('Введите 1 число: ') ;

Readln (max) ;

Write ('Введите 2 число: ') ;

Readln (min) ;

if (min > max) then

begin

tmp : = max;

max : = min;

min : = tmp;

end;

if (min = max) then

begin

Writeln () ;

Writeln ('Числа одинаковы!') ;

end

else

begin

max : = max - 8;

min : = min * 2;

Writeln () ;

Writeln ('Max = ', max) ;

Writeln ('Min = ', min) ;

end;

End.