Где находится вулкан Ключеская сопка

Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.

Это если консольное. Если графическое приложение - тогда приношу свои извинения.