a, b, max: integer;
readLn(a);
readLn(b);
if (a
a:=a*2;
max:=a;
end
else begin
b:=b*2;
max:=b;
end;
writeLn(max);
end.
Желательно проверить работу программы. Если что-то пошло не так - пишите, можете прислать фото ошибки. Буду рад, если Вы отметите моё решение как "Лучший ответ"!