Составить программу, которая считывает 2 числа, наименьшее число увеличивает в 2 раза. результат выводит на экран.

a, b, max: integer;

readLn(a);

readLn(b);

if (a<b) then begin

a:=a*2;

max:=a;

end

else begin

b:=b*2;

max:=b;

end;

writeLn(max);

end.

Желательно проверить работу программы. Если что-то пошло не так - пишите, можете прислать фото ошибки. Буду рад, если Вы отметите моё решение как "Лучший ответ"!